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The OKIMATE 10 Personal Color 
Printer's got it for $238. 




The first affordable 
color printer. 

Atari® computer owners, 
meet the one and only. The 
new OKIMATE 10 Personal 
Color Printer. The first per- 
sonal printer that lets you 
print in a rainbow of 36 
dazzling colors. 




Now your Atari personal 
computer has new mean- 
ing. Because OKIMATE 10 
can bring the information 
on your screen to life. Print- 
ing on plain paper In bril- 
liant color For very little 
green. 



Fully equipped for 
reading, writing and 
'rithmetic. 

The OKIMATE lO's word 
processing capability deliv- 
ers crisp, clean term papers, 
school reports and home- 
work. At 240 words per 
minute. So now you can 
print an assignment off your 
Atari personal computer in 
minutes, instead of typing it 
in hours. And OKIMATE 10 
lets you highlight words, 
headlines, 
paragraphs 
and charts 
with wide, bold,^ 
or fine 
print. 
So you 
and 
your 

information 
really stand out 

If you use your Atari per- 
sonal computer to keep 
track of mortgage pay- 
ments, tuition payments, 
your checkbook or beat 
Dow Jones to the punch, 
here's good news: the 
OKIMATE 10 gets down to 
business quickly. And 
easily. 

Easy to learn, 
easy to use. 

"LJeam-to-Print" software 
comes with OKIMATE 10 to 
show you how to start print- 
ing. And the OKIMATE 10 



Handbook will teach you 
how to get your wildest 
ideas and images down on 
paper. Now you're set. 

OKIMATE 10 makes it 
easy to get color from the 
screen to paper because it 
comes with its own "Color 
Screen Print" program. 

Just plug the OKIMATE 10 
into your Atari personal 
computer with the PLUG ' N 
PRINT 
pack- 
age.* And 
print. It's that 
easy. 



Everything Included. 

For $2 3 8 you get both the 
printer and the PLUG 'N 
PRINT package plus 





everything you need to 
print: black ribbon, color 
ribbon, data cable, PLUG 'N 
PRINT control cartridge, 
"Learn-to-Print" program, 
"Color Screen Print" soft- 
ware package, computer 
paper, and an easy to read 
handbook. 




OKIDATA 

^k an OKI AMERICA company 



Mt. Laurel, NJ 08054 
Available at retailers everywhere. 



Atari is a registered trademark of Atari inc. 
•PLUG 'N PRINT paclcages for Atari computers sold separately. 
Atari requires disk drive and 48K memory. 
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OSS WRITES 

ONLY PRECISION SOFTWARE... 

OUR CUSTOMERS WRITE OUR BEST ADS! 

BASIC XL 

"BASIC XL is a fast and powerful extension of Atari BASIC, totally compatible with virtually all software. Its many 
features make programming easy, especially games that require player/missile graphics. For people writing business 
software or translating existing programs from other computers, the new string arrays and other string-handling fea- 
tures make the task manageable. BASIC XL is a truly professional language that should become standard in all 
future Atari computers. Overall Rating — A." The Addison -Wesley Book of Atari Software 1984 

BASIC XL SuperCartridge & Manual (Requires 16K Memory) $99.00 

ACTION I 

"For those who have found BASIC to be too slow or assembler to difficult, ACTION! is the logical alternative. 
ACTION! programs can increase speed from 50 to 200 times that of BASIC." Jerry White, Antic, February 1984 

ACTION! SuperCartridge & Manual (Requires 16K Memory) $99.00 

MAC/65 

"For the serious machine language programmer or anyone interested in programming in 6502 machine language, 
this package is a must. A lot of the good professional software on the market, games or otherwise, was written using 
this brute. Coding machine language with anything else is like trying to swim upstream in quicksand." AC£^ Of West 
Hartford, May 1984 

MAC/65 SuperCartridge & Manual (Requires 16K Memory) $99.00 

THE WRITER'S TOOL was designed 
for WRITERS who want to WRITE I 

When you want to write on your Atari® Computer — a letter, a business report, or a book — you want to concentrate 
on writing and not on the word processor that you are using. 

You want to write immediately without having to spend hours learning some fancy system or remembering 
complicated commands. 

You want to write quickly...as fast as your imagination can fly. Then edit just as fast...correct mistakes; change, 
add, or delete words and phrases; rearrange the sequence of paragraphs or entire pages without fearing that one 
slip of your fingers might wipe -out hours of precious work. 

You want to be able to save or retrieve your text files on any type of Atari compatible disk drive using either 
single -density or double-density disks without worrying about accidentally erasing files. 

You want to be able to print out your finished piece right away, using all of your printer's capabilities such as 
Pica, Elite, and condensed type; print two-columns on 8 V2" wide paper and proportional spacing; and print different 
types of characters: doxxble - w-idtti , bold-face, italics, underlined, ""p^'^'p'' and subscript' 

Compare THE WRITER'S TOOL with the others: feature for feature, dollar for dollar— if you can find a better 
word processor, buy it! 

THE WRITER'S TOOL* 

SuperCartridge, Program Disk, Tutorial & Reference Manual $129.95 



*Requirea an AtarV Computer with 40K memory, disk drive, and any Atari compatible printer. 
ATARI'^ is the registered trademark of ATARI, INC. 

Now Available At Your Software Dealer! 



#Si 



Optimized Systems Software, Inc. 

CIRCLE #102 ON READER SERVICE CARD 1221 B Kentwood Avfiniie. San Anna nalifnrnia QRIPQ (&nK\ J.aR-.qnQQ 



ANALOG COMPUTING 
STAFF 

Editors/Publishers 

MICHAEL J. DESCHENES 
LEE H. PAPPAS 

Managing Editor 

JON A. BELL 

Production Editor 

DIANE L, GAW 

Contributing Editors 

DONALD FORBES 
BRADEN GRIFFIN, M.D. 
TONY MESSINA 

East Coast Editor 

ARTHUR LEYENBERGER 



For subscription information 

and service 

call toll-free: 

1'800'345'8112 

in Pennsylvania call 

1-800-662-2444 



West Coast Editor 

JIM DUNION 

Art Director 

BOB DESI 

Contributing Artists 

GARY LIPPINCOTT 
LINDA RICE 

Technical Division 

CHARLES BACHAND 
TOM HUDSON 
KYLE PEACOCK 

Advertising Manager 

MICHAEL DESCHENES 

Distribution 

PATRICK J. KELLEY 

Production/Distribution 

LORELL PRESS, INC. 

Contributors 

JONATHAN BUCKHEIT 
ROLAND S. CHAN 
ANGELO GIAMBRA 
JOEL CLUCK 
STEPHEN D, GROLL 
JIM HANEY 
VERN L. MASTEL 
STEPHEN PROKOPCHUK 
CLAYTON WALNUM 



ANALOG Computing 
magazine (ANALOG 400/800 
Corp.) is in no way affiliated 
with Atari. Atari is a 
trademark of Atari, Corp. 



ADVERTISING SALES 




ANALOG Computing 

Home Office 
Michael DcsChenes 
National Advertising 
(617)892-9230 



Gerald F. Sweeney & Associates 

P.O. Box 662 

New York, NY 10113 

(212)242-3540 



Address all advertising materials to: 

Michael DesChenes — Advertising Production 

ANALOG Computing 

565 Main Street, Cherry Valley, MA 01611 



ANALOG Computing (ISSN 0744-9917) is published monthly for $28 per year by 
ANALOG 400/800 Corp., 565 Main Street, Cherry Valley, MA 01611, Tel. (617) 
892-3488. Second-class postage paid at Worcester, MA and additional mailing of- 
fices. POSTMASTER: Send address changes to ANALOG. Computing, P.O. Box 
615, Holmes, PA 19043. No portion of this magazine may be reproduced in any form 
without written permission of the publisher. Program listings should be provided in 
printed form. Articles should be furnished as typed copy in upper and lower case with 
double spacing. By submitting articles to ANALOG Computing, authors acknowledge 
that such materials, upon acceptance for publication, become the exclusive property 
of ANALOG Computing. If not accepted for publication, the articles and/or pro- 
grams will remain the property of the author. If submissions are to be returned, please 
supply self-addressed, stamped envelope. U.S.A. newstand distribution by Eastern News 
Distributors, Inc., Ill Eighth Ave., New York, NY 10011. 

Contents copyright © 1984 ANALOG 400/800 Corp. 



ANALOG COMPUTING 




by Jon A. Bell 



Last issue, we presented both a short summary of 
Atari Corp.'s first press conference and an interview 
with Jack Tramiel, Chairman of the Board. Through 
hard work and sUghtly insane scheduling, we managed 
to publish the information a scant two weeks after 
the events, making us the first monthly magazine in 
the country to present the information. There are still 
details that readers have been wondering about, so 
we thought we'd clear up some of them this issue. 

At the press conference, James Copland, Vice Presi- 
dent of Marketing, read a statement on Atari's current 
plans and future goals. After the meeting, reporters 
questioned the attendees: James Copland; Jack 
Tramiel; his son Sam, President of Atari Corp.; David 
Harris, Vice President of Sales; Greg Pratt, President 
of Atari (U.S.) Corp.; and Sig Hartman, President of 
Software for Atari. 

Many of the questions that Lee and 1 had prepared 
for the interview were answered at the conference — 
including those about the new computers. Atari offi- 
cials made it clear — they'd only reveal a few details 
about the new line. Thus, Lee and I didn't harass Jack 
Tramiel for that information during our interview. 

However, I can mention a few other details about 
the machines that were left out of last issue. Accord- 
ing to Sam Tramiel, the Operating Systems of the new 
machines would not be IBM-compatible, but would, 
instead, be developed in-house by Atari. Also, the 
machines would feature GEM (Graphics Environment 
Manager), by Digital Research. This will enable the 
computer to use such Macintosh-like features as icons, 
pull-down menus and windowing. The 16-bit ma- 
chines (to be shown, we hope, at the January CES) 
will use the Motorola 68000 chip. (Although the 
68000 chip is touted as a 3 2 -bit microprocessor, it's 
actually a 32-bit chip with a 16-bit address bus.) Specs 
on the 16-bit machines have already gone out to soft- 
ware developers. Atari's 32-bit machine will be using 
the National Semiconductor's 32032 chip as its micro- 
processor. 

1 brought up the matter of the 32032 to Tony Mes- 
sina, our expert in the world of high-technology chips. 
The next day, he provided me with a pamphlet on 
the chips, which stated, "the NS32032 functions as 
a central processing unit (CPU) in National Semi- 
conductor's NS16000^" microprocessor family." The 
chips feature "3 2 -bit architecture and implementa- 



tion, a 32-bit data bus," and "16-megabyte uniform 
addressing space." The 32-bit machine is scheduled 
to be shown at the huge European electronics fair in 
Hanover, West Germany in April — and, yes, we'll be 
covering it. 

The prices of 800XLs and 1050 disk drives have 
dropped to levels that ought to make Commodore 
quake. One can now get SOOXLs for $119.00 or less, 
and 1050 disk drives for $179.00 — making a powerful 
home computer system available for only $300.00. 
Also, for those readers who can't resist getting in a 
dig at Atari's competition. Commodore is eating ware- 
houses of their Plus-4 computer (a machine which 
Jack Tramiel vigorously opposed while still at Com- 
modore), and sales of the 64, although strong, are ac- 
tually lower than this time last year. An industry 
insider who knows Commodore quite well said, "they 
are betting everything they have on the Amiga. They 
can't live forever on Commodore 64 sales." Or, as 
James Copland put it, "short gain, long fall." 

Notice to subscribers. 

If you subscribe to ANALOG Computing, you're 
in for a treat. In the next six months, we're going to 
offer two bound-in supplements that should be of great 
use to both fledgling programmers and Atari veterans. 
However, these will only be available to subscribers. 

If you already subscribe, you're in luck. If you don't, 
then what are you waiting for? As an added incen- 
tive, whether you're a first-time subscriber or simply 
renewing, you'll be receiving one of two free Atari 
books: ABCs of Atari Computers by David E. Mentley, 
or Atari Roots by Mark Andrews. (If you subscribe for 
two or more years, you'll receive both books.) As they 
say in the cereal commercials: offer good while sup- 
ply lasts. 

Errata. 

We'd like to advise you of a few corrections for the 
Atari Stocking Staffers article (ANALOG Comput- 
ing issue 25). The correct phone number for At-A- 
Glance and Gemini Enterprises is 201-267-0988. The 
phone number for Amiable Computer Enhancements, 
maker of a cartridge for use with the ATR-8000, is 
517-393-1357. Ask for Lance Ward. Also, the price 
for the Graph-Fix keyboard labels is $5.95, not $4.95 
as reported. And, finally Solo Flight is by MicroProse 
Software, not MMG. D 
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BEST SELLERS FROM 
THE PROGRAMMERS WORKSHOP 



TWO DRIVES FOR 
THE PRICE OF ONE 

THE 

ASTRA 

1620 

MORE DISK DRIVE FOR YOUR MONEY ... 

in fact, with the ASTRA 1620, you get two superb Disk 
Drives for the price of one. The ASTRA 1620 is Single 
or Double Density (software selectable) and completely 
compatible with ATARI DOS or OSA + DOS. When 
used as Double Density, the ASTRA 1620 has the 
same capacity as Four ATARI 810® Disk Drives. 
•^ Satisfaction Guaranteed -A 





INCLUDED: at no extra charge 

HOMEWRITER • SMARTDOS 



THE HOME WRITER $39.00 



The HOME WRITER is an easy to use word proces- 
sor which Includes a carefully selected group of func- 
tions that are at your disposal immediately. The func- 
tions are as follows; SAVE, LOAD, REVIEW, PRINT- 
OUT, or EDIT. All the popular editting features avail- 
able on the ATARI Home Computer in direct prog- 
ramming mode are also available with HOME WRIT- 
ER. Unlike other small word processing programs, 
HOME WRITER does not wrap-around when at the 
end of a line. Right and left margin justification is 
available for any type parallel printer. 48K. 



FILING SYSTEM $39.00 



FILING SYSTEM allows the user to configure any 
type of data file imaginable. Examples are recipe 
cards, mail lists, reminders for birthdays, check-ups, 
etc., complete inventories (home and business), 
personnel files, customer call-ups, price list, and 
much, much more. You may retrieve data using any 
field or combination of fields. Files also may be 
saved, sorted, and printed in a preset format that you 
configure. Uses either a single or a double density 
disk drive. 24K minimum. 



THE PROGRAMMERS WORKSHOP 

5230 Clark Ave., Suite 19 
Lakewood, CA 90712 

(213) 920-8809 



DESK SET $39.00 



DESK SET is a perpetual calendar, an appointment 
calendar and also a card file. The perpetual calendar 
is a calendar of every month, past, present or future. 
The appointment calendar allows up to 15 entries to 
be made each day. The card file is a mail list program 
which holds up to 200 addresses. The printing format 
of card file includes continuous lists, labels or en- 
velopes. Files can be printed; all the files from one file 
number to another; by zip code; by state or by 
selected files. DESK SET is an easy way to organize 
your life. 40K 



FINANCIAL CALCULATOR $29.00 



The program answers virtually any questions con- 
cerning the cost of money, loans, and interest earned 
on savings, loans and investments. Plus, this pro- 
gram will give a complete interest earned table and 
amortization table. This program is a must for anyone 
serious about money. 32K. 



SMARTDOS $39.00 



SMARTDOS is 100% density smart. SMARTDOS will 
sense the density of each disk in use and automatically 
reconfigure the entire system to that density. 
SMARTDOS does not require that a "system disk" has to 
remain in the drive, or be continually inserted and re- 
moved in order to use the DUP.SYS commands. 
With SMARTDOS you may Copy with query, (eliminates 
specifying each item individually). 

Counter screens - which keeps the user informed as to 
what the system is doing and where in the task the sys- 
tem is. 

Disk testing for bad or unusual sectors that may be cor- 
rected. 

RESIDUP feature allows simple yet powerful full time 
availability of DUP.SYS commands while leaving your 
program intact and ready to RUN. 

Minimum keystrokes for maximum power, e.g. a disk di- 
rectory is done by pressing only one key — the drive 
number (great for filesearches), and " = " may be used to 
replace *.*. 

The ability to run from 1 to 9 autorun files sequentially. 
Built in disk drive speed check. 

SMARTDOS is only 34 single density sectors long and 
works with all Atari computers with a minimum of 24K 
RAM. 



OTHER PROGRAMS 



Billing/Inventory 48K 

Stat Plus 24K Min 

Forecaster 24K Min 
Disk Fix Kit 

Master Mail List 48K 

Letter Writer 24K 

Letter System 48K 

Doom and Boom Tycoon 24K 

Word Wiz 24K 

Demons Dungeon 24K 

4 Player Blackjack 24K 
Drawing Board 



$49.00 
$29.00 
$29.00 
$29.00 
$19.00 
$19.00 
$29.00 
$19.00 
$19.00 
$19.00 
$14.95 
$14.95 



-^ ___-,_ _. VISA/MasterCard, check or money order accepted. If charge, please include expiration date of card. Ship- 
I O ORDER ! ping and Handling software $1.50, disk drive, $10.00. California residents add sales tax. Phone or mail. 

• ATARI IS a registered Irademark of Warner Communications ^^^^^^ 
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BBS update. 

We are writing to bring you up- 
to-date on the S.P.A.C.E. BBS we 
run here in St. Petersburg. If you 
recall, you published the article we 
wrote, So, you want to be a SYS- 
OP, last May/June (issue 19). Well, 
since the article was published, the 
board has gone crazy! 

We have received calls from all 
over the world! ANALOG Com- 
puting truly is the magazine for 
Atari computer owners. We have 
received calls from every state in 
the U.S.A., every province in Can- 
ada, and even some from Guam, 
Puerto Rico, England and Spain. 
Needless to say, we are very happy 
for the opportunity to have had an 
article in ANALOG Computing. 

One significant thing has hap- 
pened in the last few weeks — we 
have moved, and the number for 
the BBS has changed. 

The new number is: 813-596- 
4437. We are still up during the 
same hours: noon to midnight EST, 
every day. Also, since the article 
was published last spring, we have 
been offering the BBS software to 
those wishing to start their own 
BBS system. The programs neces- 
sary to run a BBS are available ev- 
ery weekend on S.P.A.C.E. BBS, 
in the (D)ownload section, or they 
may be received by mail if you send 
a disk and $10.00 to cover return 
postage/handl ing . 

Thank you, 

Kim and Noel Thomas 

Seminole, FL 

A few words from XLENT. 

I recently ran across a comment 
about MegaFont, published in your 
review of XL BOSS from Allen 
Macroware. The review stated that 
MegaFont does not work on the 
XL series of computers. 

MegaFont was released prior to 



the Atari SOOXEs introduction. We 
tested MegaFont on one of the first 
Atari IZOOXLs we could lay our 
hands on, before releasing it. All 
released copies of XLENT products 
work on all released versions of the 
Atari operating system. 

As any Atari enthusiast knows, 
there are hundreds of combinations 
of printers, interfaces, disk drives 
and computer combinations that 
are available to the Atari user. 

XLENT Software's most difficult 
task continues to be supporting the 
world of so-called compatible peri- 
pherals. Randy and Richard (the 
authors of MegaFont, MegaFont ][ 
and MegaFont ][ + ) have spent 
more than a year adapting Mega- 
Font to work with nearly every 
combination of devices available to 
the Atari user. 

MegaFiler had to be changed, 
when we discovered that the Ape 
Face interface did not have the 
same bug that the Atari 850 had 
associated with the use of the TAB 
on the Atari computers. 

While the Panasonic, Mansman 
Tally, Epson and Gemini printers 
are all compatible, Richard and 
Randy have had to rewrite code for 
each printer, each time we add a 
feature. 

The C.Itoh printer has appeared 
in two versions, the 8510 AP and 
the 8510 PP. As you might guess, 
the code for each had to be rewrit- 
ten to make them both compatible. 
Additionally, the NEC 7510 is only 
partly compatible. 

Perhaps the effort that we have 
put forth to make our programs 
available to the largest number of 
Atari users is the reason that we are 
so sensitive to the type of state- 
ments we read in your review of XL 
BOSS. 

XLENT Software is very pleased 
with the positive reviews that our 
products, MegaFont ][ and Mega- 



Filer, have received in your maga- 
zine. 

Linda K. Kubota-Barnes 

President, XLENT Software 

Springfield, VA 22152 

(703) 644-8881 

Bopotron! variations. 

Bopotron! became an instant hit 
in our home, but 1 had to make 
these two changes to satisfy the 
younger players. 

To simplify choosing the starting 
level, add: 

155 ? "IS":P0KE 752,1 

156 POSITION 2,5:? " FOR 5 
TART LEVEL PRE55 1-5": OPEN 

ttl 4 "K : " 
157'GET'ttlisTARTLML:IF C5T 
ARTLVL<49) OR (5TARTLUL>53 
} THEN 157 

158 5T«RTLVL=STARTLUL-48:C 
L05E ttl 

Tj increase the "shock effect" of 
each screen: 

325 a=PEEKC559) :POKE 559,0 
330 G05UB 4e0e:G0SUB 5008: 

G05UB 6oeo:GosuB 7eee:G05u 

B 8eee:G05UB 28eO:G05UB 30 
ee:POKE 559,0: POKE 54286,1 
92 

Your readers may be interested in 
these amendments. 

Although not a subscriber, I have 
never failed to buy ANALOG 
Computing, since acquiring our 
Atari in December, 1983, and find 
it indispensable. Also, I'd like to 
hear from any other Atari users. 

Yours sincerely, 

Robert Hume 

Dartmouth, Nova Scotia, CAN 



UNICHECKing. 

I have had no luck trying to use 
UNICHECK. Each time I try it, 
I get an ERROR- 130 message. Any 
suggestions on where I went wrong? 

The instructions for the care and 
feeding of my 1050 disk drive warn 
against placing the drive any closer 
than 12 inches from the TV. When 
I see so many of the PCs on the 



LOTSABYTES DECLARES WAR ! 

WAR on high prices ! We're going to put an end to the software price ripoff. And YOU 
can help '. Just keep those orders coming while you continue to enjoy the quality, 
quantity, selection and low prices that you deserve. Our National Public Domain Copy 
Service will save you time, tedious work, and money. And our exclusive distribution of 
sharply discounted commercial programs will bring you some of the finest programs for 
the lowest possible price, usually 50% off retail! You continue to get FREE BONUSES 
with each purchase of three or more disks. 

PUBLIC DOMAIN SOFTWARE 
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Don't miss it ! 
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ADVANCED 
MUSICSYSTEM II 

by LEE ACTOR 
Allows you to create music 
with your Atari computer! 
All new machine code. 

* Control over pitch 
duration, envelope 
dynamic level, meter, 
tempo and key. 

* 4 independent voices 

* 5''i. octaves per voice 

* Save up to 8200 notes 

* Custom DOS 

* FULL instructions 

* 24K disk 
Originally $29.95 Only $14.95 

ORIGINAL ADVENTURE 

by Bob Howell 

For all Atari computers. 

The Original 

Colossal Cave 

Adventure faithfully 

reproduced from the 

'main-frames'. 

This is the one 

that launched the whole 

Adventure craze of today! 

* Two mazes 

* 130 rooms 

* Deadly Dragons 

* Nasty Dwarves 

* Tenacious Troll 

* The Pirate & More! 

* 86 coded hints 

* SAVE/RESUME 

* 40K disk or 32K tape 
Originally $29.95 Only $14.95 " 




QUALITY WORD PROCESSING 

ESI WRITER! At last a brand-new Word Processor 
that has more features and is easier to use than 
anything else available for the Atari. Easy for the 
beginner to use, it asks questions and remembers 
the answers. ESI WRITER is so sophisticated that it 
has many more features we don't even have room to 
mention ! Works with ANY Atari. 

* Reads any text file * Built in Help screen 
* Very fast ! * Works with ANY printer 

* Instant top, bottom or text location 

without scrolling! 
* Every printer feature * DISK ONLY (Any Atari) 

* Search and replace * Block move text 
*Page eject/start * Set margins/lines etc. 

'Full justification * Print headers etc. 

* Block delete etc. * Change video color 

* Over 50 pages of docs and tutorials 
TRUST US ON THIS ONE I YOU WILL LOVE IT ! 
Originally $49.95 LotsaBytes price $24.95 



* * FREE BONUSES * * 

If you purchase any 3 or more disks at a time 

you may choose any 1 of the following disks 

FREE!! 

a. The Atari XL TRANSLATOR DISK 
that enables XL owners to use most 
400/800 software. FREE!! 

— or — 

b. An all different AMS MUSIC disk 

with Player. FREE!! 

—or — 

c. Your choice of one of the P.D. disks ~ 
#1, #2, #3, #4, #5, #6, #7, #8, 

#9, or #10 (specify one) FREE!! 




LotsaBytes 



15445 Ventura Blvd., Suite 10H 
Sherman Oaks, CA 91413 

AUiri IS Ihe registered IrarJemark of Alan, Corp 

CIRCLE #104 ON READER SERVICE CARD 



GREAT GAMES ! 

LotsaBytes Exclusives ! 

SPACE GAMES: Three games 
for one low price!. In Aliens you 
can't get them all and the pace 
keeps getting faster. When you 
do get rid of most of them, you 
are left in a space quadrant 
peppered with mines. Will you 
Survive? If you do, you must 
penetrate the alien's spaceship, 
survive a Robot Attack, and get 
back your stolen 'cloaking' 
device! Interested? 
$24.95 list 

LotsaBytes price: $12.95 

THE BEAN MACHINE by Steve 
Robinson is an Award Winning 
Arcade game that will drive you 
crazy balancing a series of 
beams while trying to get all the 
beans to roll down, without 
touching, all the while avoiding 
'strange creatures' who drop in 
to steal the beans. It's addicting! 
$24.95 list 

LotsaBytes price: $12.95 

DIGGERBONK, another Award 
Winning game by Steve 
Robinson, challenges you to 
find your way through a 
continuously scrolling maze 
while avoiding some really 
strange creatures. Along the 
way you will need to Bonk some 
of them, but watch out for the 
bombs. 
$24.95 list 

LotsaBytes price: $12.95 

GUESS WHAT'S COMING TO 
DINNER lets you try to 
manuever a snake through 7 
levels if you can keep it from 
starving or being electrocuted. 
Lots of surprises! One or two 
players. 
$24.95 list 

LotsaBytes price: $12.95 



CREATIVE LEARNING 
ADVENTURES 

Ages 4 to 10 — Disk only 

1. Hours of educational fun 
playing 3 exciting creative 
adventLires with a friendly alien 
learning about our planet Earth. 
Hand/eye co-ordination, 
drawing, and music skills are 
emphasized. 

$24.95 list 

LotsaBytes price: $12.95 

2. Four challenging learning 
games that are the favorites of 
our friendly alien. Helps your 
child to develop logical 
reasoning ability. 

$24.94 list 

LotsaBytes price: $12.95 

3. These 3 Fun-Day learning 
games will help with intellectual 
development, hand/eye co- 
ordination, logic, spatial, and 
analytical abilities. 

$24.95 list 

LotsaBytes price: $12.95 
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market with built-in drives, I won- 
der if this caution is valid. Obvi- 
ously, the built-ins are not a foot 
from the monitor. Where space is 
limited, this extra foot can be ask- 
ing for a lot. 

Very truly yours, 

Bill Permer 

Ft. Collins, CO 

UNICHECK shouH work as it's 
listed. The ERROR-BO indicates that 
the U: device wasn't initialized proper- 
ly, which means the AUTORUN. 
SYS program is not being executed. 
Be sure the filename is spelled cor- 
rectly. 

Finally, manually check the values 
in Lines 150 and 190. These are the 
load header bytes for the disk, and tell 
the computer where to load the file 
and where to run it. 

As for the disk drive space problem, 
I concur with your 1050 manual. Un- 
less a disk drive is heavily shielded, the 
magnetic field generated by a TV or 



monitor can wipe out data. M)i old 
Compucolor U computer, with its 
built-in drive, wiped out more than 
one of my disks when I left the com- 
puter on for extended periods of time. 

-T.H. 



Minicomp-lications. 

Help! I need to know how to 
save my object files made by Mini- 
comp. 

I have DOS3. 1 loaded every- 
thing just as your issue 23 says. 
Then I typed GOTO 1000, and 
everything worked fine. 

Then I loaded DOS3 and pushed 
S (for SAVE), 3000 (for starting), 
318F (for ending), (for optional 
init.), and 3000 (for optional run). 
It saved under DITEST, Y, and Y 
Then it said, "Loading DITEST 
. . . — and then it froze up! 

I turned off the computer and 
repeated everything except for Run 
this file (Y/N)? I typed N, then I 



typed G (go at hex addr.), 3000 for 
run. And then it froze up again! 

What can I do? 

David Nichols 

Spokane, WA 
P.S. I really like your magazine! 

If you're using Minicomp with 
DOS2.0S or DOS3, you need to 
have a MEM.S/W file on your disk 
to save the object code from the DOS. 
Also, If you're saving from DOS, do 
not enter an INIT ADDRESS. For 
example, to save a file from address 
range $3000-3140 with a run address 
of $3000, you should type: D:FILE- 
NAME.EXT, 3000, 3140„3000. 

Here's a modification for Mini' 
comp that will save your object code 
files for you. After compiling, stop the 
program with the BREAK key and 
type GOTO 9000. Then, simply en- 
ter the starting, ending and run ad- 
dresses (in decimal), and the filename 
to save the program under. 

The computer will save the object 
code to disk and give you the READY 



New. . . Improved 

WHAT IS 

CHECKSUM DATA? 



Most program listings in ANALOG Computing are followed by a table of numbers appearing as 
DATA statements, called "CHECKSUM DATA." These numbers are to be used in conjunction with 
D:CHECK and C:CHECK (which appeared in ANALOG Computing issue 16 and the ANALOG 
Compendium) or with UNICHECK (from issue 24). 

D:CHECK and C:CHECK (written by Istvan Mohos and Tom Hudson) and UNICHECK (by Tom 

Hudson) are designed to find and correct typing errors when readers are entering programs from 
the magazine. For those readers who would like copies of these articles, you may send for back 
issue 16 or 24 ($4.00 each) or the ANALOG Compendium ($14.95 plus $2,00 shipping and han- 
dling from: 

ANALOG Computing 

P.O. Box 615 
Holmes, PA 19045 
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prompt. To execute the program just 
go to DOS and load the file with the 
L option. 

9eee ? "minicohp object co 

DE SAVER":? 

5810 IRftP 9829: DIM FMSC20} 

9820 TRAP 9828:? "EHTER 5T 

ART ADDRE55";:IHPUT ST AD 

9830 TRAP 9838:? "ENTER EH 

D ADDRESS"; : INPUT ENAD 

9840 IF STAD>=ENAD THEN ? 

"QBAD address RANGE":? :G0 

TO 9020 

9050 TRAP 9040:? "ENTER RU 

N ADDRESS"; :IHPUT RAD 

9060 ? "OUTPUT FILENAME";: 

INPUT FNS 

9070 OPEN «1,8,0,FN$:PUT It 

1,255: PUT ttl,255 

9088 STH=INTtSTAD/256J :STL 

zSTAD-STH«256:PUT ttl,STL:P 

UT ltl,STH 

9090 ENH=INTCENAD/25e}:ENL 

=ENAD-ENH«256:PUT ttl,EHL:P 

UT ttl,ENH 

9100 RAH=INTCRAD/256J :RAL= 

RAD-RAH*256 

9118 FOR K=STAD TO ENAD:PU 

T ttl,PEEK(K) :NEKT K 

9128 PUT 111,224: PUT «1,2:P 

UT ttl,225:PUT ttl,2:PUT ttl, 

RAL:PUT ttl,RAH:CLOSE ttl:EN 

D 

For example, the Androton pro- 
gram from issue 25 may be saved us- 
ing these parameters: 



START ADDRESS " 11776 
END ADDRESS - 22248 
RUN ADDRESS = 12288 



-T.H. 



LETTER PERFECT 



VERSION 6 



DATA PERFECT* 

VERSION 2 

KEYBOARD 
TEMPLATES 

i Have the RIGHT 

I commands for your 
1 software at your 

I fingertips! 



• Heavy guage plastic 
for lifetime of use 

• "At-A-Glance" sum- 
marizes all commands 
required to learn and 
operate your programs 

• Symbols and function 
keys explained 

"The preceding copyright of Atari, UK and Synapse 

800 and XL Series 

SynCalc ,t--Qc '-®"®'' 
SynFile& ' I 4?a'?h p°'jg 
Atari Writer Includes shipping pg^fgj,^ 

Send CHECK or MONEY ORDER to: 




Dept. 2, 86 Ridgedale Avenue, 
Cedar Knolls, NJ 07927 

New Jersey Residents include 6% sales tax. 
Dealer inquiries invited. 

CIRCLE #105 ON READER SERVICE CARD 



Math Attack for two. 

Gentlemen, I need help. I put 
Math Attack (issue 22) into the 
computer and on disk, printed it 
out and double proofed it. I'm fairly 
certain that there are no errors in 
the program entered on disk. 

When RUN command is given, 
the preliminary requests for com- 
mand work, graphics for the man, 
the first problem and the bomb ap- 
pear on my monitor. But, from that 
moment on, nothing moves. There 
is no action. 

1 am using an 800XL and suspect 
that the problem may be there, be- 
cause the program was written for 
a 400 or 800. I have a translator 
disk, but it is of no help without 
a self-boot disk — and Math Attack 
is not set up to self boot. 



FROM 




THREE 
PDQ DISKS 
AND A NEW 

FUTURE 

59.95 

We'll tell you about the disks: 

PDQ - Premiunn Disk Quality 
DD - Double-Density (48 TPI) 
DS - Double-Sided 

The Iront is ready tor you to format and 

use; ttie back is reusable. 
W21 - 21-year Warranty! 

Your A tari (48-K) can tell you about your 

new future. 

Boot in ttie program on ttie bacl< of each disk. 

You'll see. 

Order PDQ! Write "PDQ" on a paper, witti 

your (legible!) name and address; send 

witti $9.95 {we'll pay the shipping for USA 

and Canada - NYS residents add 7% 

Sales Tax) to: 

SENECOM 

Dept. 22 

13 Whitest. 

Seneca Falls, N.Y. 13148 

Limit: one order per address, please. 

Atari" is a registered trademark of Atari Corporation. 

SENECOIvl is a registered trademar1< of 

Seneca Computer Company, Inc. 



Do you have any suggestions, or 
are there corrections which will ap- 
pear in a later issue? I would cer- 
tainly appreciate your help. This is 
a program which would appear to 
work well in a teaching situation, 
and I really want to use it. 

M.I. Houser 
Columbus, KS 

Math Attack should run fine in 
the one-player mode, as listed. How- 
ever, the program does not operate 
properly in the two-player mode on 
the XL series. The following: 

330 DATA 104,169,15,205,12 

0,2,208,5,169,1,141,244,6, 

169,15,205,121,2,208,5,169 

,1,141,245,6,169 

350 DATA 169,80,145,203,76 

,92,6,177,203,170,232,138, 

145,203,169,14,205,121,2,2 

08,34,169,1,205,245,6 

370 DATA 138,145,207,173,2 

48,6,205,132,2,208,6,169,1 

,141,246,6,96,173,249,6,20 

5,133,2,208,6,169 

should correct this problem for you. 

-TH. 
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BREAKS? 

Fast, Reliable Repair 

for Atari 810 & 1050 

Disk Drives 



■ 3 Day Turnaround ^ 

■ 90 Day Warranty ' 

■ $85 Flat Rate with 
Repairable Exchange 

■ Spare Parts Available 

Dealers — Special Rates Available 
Ask about Express Expedite 

Add $10 shipping & handling. 
Check, MO, Visa, MC 

BfmrS 

The Disk Drive Specialists 

(916) 786-6550 



Call 8:00-5:00 Pacific Time 
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ARCADE ACTION AND STRATEGY BY BRODERBUND 

just studying in college, you learned to dance 
... so well that you're now a whirling dervish 
and can whirl yourself out of danger when the 
need arises. 

Also by Broderbund is Stealth, and, while 
not the kind of game you'd play many times, 
it exemplifies what the Atari computer is ca- 
pable of in the graphics department. You find 
yourself piloting a Stealth Starfighter along the 
surface of a remote world, bent on seeking out 
and destroying the Dark Tower 

As you buzz over positive energy fields, your 
power level will increase (and, of course, de- 
crease over negative fields). Volcanoes, both 
active and dormant, add to the tension. 

Enemy defenses will try to prevent you from 
reaching the tower, at all costs. These defenses 
consist of scout planes, tanks, fighter planes, 
bunkers and missiles. 

The color, sound and action are top notch, 
but, once you've accomplished your mission, 
you're not likely to try more than another mis- 
sion or two, even at the higher skill levels — 
Stealth doesn't vary enough from attack run 
to attack run (as Star Raiders does). 

Whistler's Brother and Stealth are one- 
player games and require a joystick, 48K and 
disk drive. Retail is $29.95 each, Broderbund 
Software, 17 Paul Dr., San Rafael, CA 94903 
- (415) 479-1170. 



Whistler's Brother is absent-minded and 
bumbling, but, with your help, maybe the two 
of you can rediscover his lost treasures in the 
rain forest of South America. 

You see, your brother is Professor Fenton 
Q. Fogbank, and right after he finagled a 
Ph.D. in archeology, he set out for the jun- 
gles, using the university's tools. But, after a 
year there, he returned without treasure (or 
the tools he'd borrowed). Being somewhat 
hazy in the noodle, he forgot where he left 
the tools — or the rare artifacts he found, for 
that matter 

So you set out with Fenton to find the valu- 
able stuff, but it seems you'll spend half the 
time keeping him out of trouble. He's con- 
stantly reading his map when he should be 
looking ahead, but a whistle from you will 
bring him in the right direction. However, if 
Fenton goes too far, he'll turn white with fear, 
and both of you will be more vulnerable to 
all kinds of nasty things. 

As you journey through the thirteen chap- 
ters, you'll encounter thunderstorms, natives, 
treacherous trails, caves, a mummy and more. 
It will also become apparent that Fenton is 
such a pinhead that you probably should let 
the natives have him! 

Along the way, you'll find (and need) your 
brother's lost tools. Lucky for you, instead of 




STOP THE FUEHRER 

... is the motto in Beyond Castle Wolf- 
enstein, MUSE Software's sequel to its popu- 
lar Castel Wolfenstein. Since the time you 
escaped torture in the first game, your life 
has been in big demand by the Nazis. 




Now your commander needs a favor. . . He 
wants you to deliver a package to Adolf. Your 
mission (should you decide to buy the game) 
is to find the briefcase left by the under- 
ground in a closet inside Hitler's bunker, 
then move on to a secret conference room, 
set the bomb timer and scram. Keep your 
wits about you, though — the place is crawl- 
ing with troops. 

Beyond Castle Wolfenstein is a graphics 
game requiring 32K, disk drive and a 
joystick. 

From MUSE Software, 347 N. Charles 
Street, Baltimore, MD 21201 - (301) 659- 
7212. 



EXPOSED! UNRELEASED ATARI SOFTWARE 

The "old" Atari had always acquired and developed software that never saw the light of day, and it appears 
that the new Atari Corp. now has to decide whether to release some of it, or not. 



he Market Flace 



Pro-Heading 



C'ount\i\u 




These three educational pieces were spotted in their "ready 
to go" packages, but their destination— the market or the scrapper 
—may be announced in January, at the Winter CES (Las Vegas). 

The Market Place, for 8- to 13 -year-olds, is a social studies 
simulation where you "run your own business," competing and 
learning the laws of economics. In Pre-Reading, youngsters 4 
to 7 are taught pre-reading skills through alphabet games- 
matching letters and pictures. Counting, also for 4- to 7-year- 
olds, teaches basic addition. 
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NEW FROM INFOWORLD 

Jn/oWorld's Essential Guide to Atari Computers starts with a history of the Atari com- 
puter line, then leads into Atari software and hardware, and the fine points of buying and 
setting up your computer. Section two covers Atari BASIC and Logo, touching on machine 



language and Action! 



am 



ATARI' 



A 

ATARI 



ATART 



A 

ATARI' 



A A 

ATARI' ATARI 

A A 

ATARI- ATARI' 



A 

ATARI' 



A 

ATARI' 



A 



A 



A 

ATARr 



A 

ATARI' 



A 

ATARI' 



A 

ATARI' 



IwfoWoiIdis 

ESSENTIAL 

GUIDE 

-10 — 

ATA RI' 

Scoli Mace (- the tilHors ofhi^Morbl 

sJmr }vu bow In wl Ihtr most tml iifllarilii iirc. 

Sufimin- ('- r,-nl>lM-mls 



A 

ATARI' 



A 

ATARI' 



A 



A 

ATARI' 



AAA 

ATARI _ ATARI' ATARI' 

AAA 

ATARI' ATARI' ATARI' 

AAA 

ATARI' ATARI' ATARI' 

AAA 

ATARI' ATARI' ATARI' 

AAA 



A A 

ATARI- ATARI- 

A 

ATARI- 

A 

ATARI' 

A 

ATARI' 

A 

ATARI' 

A 

ATARI' 

A 

ATARI' 

A 

ATARI' 

A 

ATARI' 

A 

ATARr 

A A 

ATARI' ATARI- 

A 

ATARI' 

A A 

ATARr ATARI' 

A 

ATARI- 

A A 



A chapter on applications software has 
brief sections on word processors and spell- 
ing checkers, educational software, commu- 
nications, database management and spread- 
sheets, accounting, music and home finance. 
Games get their own (fairly short) chapter, 
and fifteen pages are devoted to peripherals. 
Section three is fairly brief, skimming through 
service and maintenance, user's groups, and 
the future of Atari. 

Part two of the book consists of reviews of 
many popular non-game software products 
(reviewing computer games is an InfoWorld 
no-no). The reviews are divided into cate- 
gories, covering word processors, finance/ 
spreadsheets, data, education, sound, graph- 
ics, programming (languages and utilities), 
and peripherals. The last looks at a wide range 
of products. The book finishes with a list of 
companies and their addresses, a glossary, and 
a list of user groups. 



The reviews are very well done and make the book worthwhile. Other than that, The 
Essentia! Guide really isn't what its title implies. 

By Scott Mace and the editors of InfoWorld, softbound, $16.95, 292 pages. Harper & Row, 
publishers. 



OTHER NEWS 

Datasoft has acquired the licensing rights 
to market PacMan, DigDug and Pole Posi- 
tion. .All three were previously sold by Atari, 
which recently lost the marketing privileges. 

The games are identical to the previous 
computer versions, with only slight altera- 
tions to the graphics. All are shipped with 
a cassette and disk in the same box, to al- 
low for easy upgrade, should you move up 
to a disk drive. 

Retail for each game is $29.95, from Data- 
soft, 19808 Nordhoff Place, Chatsworth, CA 
91311 - (818) 701-5161. 

■ ■ ■ 

The US Doubler is a two-chip set for the 
1050 disk drive, which, when installed, gives 
full 180K double density capability, while 
still maintaining compatibility with all soft- 
ware and Atari DOSs. No soldering is nec- 
essary. 

The cost is $69.95 from ICD, Inc., 828 
Green Meadow Avenue, Rockford, IL 61107 
- (815) 229-2999. 

■ ■ ■ 

The Educational Committer Software 
Catalog provides an excellent source of 
hand-picked, quality programs. Most of the 
descriptions are accompanied by a full color 
screen photo and an age recommendation. 
All of the programs described herein are 
available by phone or order blank. 

From Enriching Software Products, Inc., 
P.O. Box 183, Glencoe, IL 60022 - (312) 
679-3475. 



WHO WAS THE FIRST RUNNER TO 
BREAK THE 4-MINUTE MILE? 

This and over 2,000 other questions come 
to you via Daystar Learning Corp. Factactics 
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NOW— BANK ST. MUSiCWRITER 

Mindscape calls its latest offering, Music- 
Writer, "the easiest and most professional 
tool -available for composing, playing and 
printing out music." 

Using word-processor-Uke keystrokes, you 
can compose, arrange and edit music in four 
voices on the Atari, while changing melo- 
dy, rhythm or harmony. Designed for ages 
9 years through adult, MusicWriter by Glen 
Chancy is part of Mindscape's Folio software 
line of productivity/utility programs. 




MusicWriter retails for $49.95; contact 
Mindscape, Inc., 3444 Dundee Road, North- 
brook, IL 60062 - (312) 480-7667. 



is their new trivia game, which tests you on 
topics ranging from the '84 Olympics to rock 
'n roll. It includes TV, movies and Americana. 

Players can compete with one another, in 
teams, or against the computer. Each question 
consists of a statement with one fact missing, 
which you fill in from a multiple-choice list. 
Features include color graphics, countdown 
timer and "jingles." 

Cost is $29.95, Daystar Learning Corp., 525 
University Avenue, Palo Alto, CA 94301 — 
(415) 323-3567. 



MONITOR TAKES ADVANTAGE OF ATARI'S SPECIAL GRAPHICS 

Teknika's new MJ-10 13-inch color moni- 
tor (which rests over my 800 now) features 
separate video inputs. The benefit is higher 
resolution. 

Because the 800 and 800XL have separate 
video outputs, consisting of chroma (color) 
and luminance (brightness), the MJ-10 can 
utilize these, giving you a sharper image for 
graphics and text. 

The MJ-10 cabinet is matched to the XL 
color scheme, in a contemporary design with 
power switch, volume and on-indicator on 
the front. Controls for the usual screen ad- 
justment functions are beneath a panel hid- 
den below. 

The instruction manual clearly describes 
how to attach the monitor to an Atari computer, using the special Atari-compatible cable 
included, which also gives you sound through the built-in speaker. 

Suggested retail, $299.00. Teknika Electronics Corp., 1633 Broadway, New York, NY 10019. 




A 



A 



Vastly SUPERIOR to any translation progroms 
avolloblel FOR ATARI 
1200XL/600XL/800XL wltti 64K. 
ATADj" (Please specify computer model numberl) ATARI" 

$69.95 (Rom) TUp $69.95 (Rom) 

$49.95 (D or C) ' " ^ $49.95 (D or C) 

XL "FIX"! * 



Ttie Atari XL series computers represent power, sophiistlcation, and 
flexibility virtually unrivalled In todays Home Computer Market. 
With "approximately" 30-40% of existing software being "Incom- 
patable", a real, and serious problem exists. Because of ttils y/e 
tiove developed THE XL "FIX"I 
ADVANTAGES over cheaper "translation products"; 

1. The XL "FIX"I Is capable of fixing more software ... an estimated 
30% more software! 

2. The XL "FIX"! Is available In DISK, CASSEHE, and nov^ ROM! 

3. XL "FIX"! versions fix ALL THREE types of software (Disk - Cassette - 
and Cartridges!) 

4. The XL "FIX"! (disk or cossette) adds OVER 4K of usable RAM to your 
computer (anyone using Data bases or Word processors will really 
appreciate this feature!) 

5. You never have to hold the OPTION button down on 600XL or 
800XL computers! 

6. VERY IMPORTANT! You need to load the XL "FIX"! only once . , . you 
can change disks, cassettes, or cartridges without rebooting the XL 
"FIX"! each time (disk or cossette)! 

7. The ROM version Is Instantaneous upon computer power up, has a 
high speed cursor. Is instantly switchable toyour original operating 
system, will work with 16K 600XL's. and morel 

The XL "FIX"! .... another SUPERIOR product! 64K required! 
DISTRIBUTOR/DEALER inquires welcome 



Mastercard-Visa-Money 
Order or Cashier Check. 
Phone (716) 467-9326 
Please specify computer 
model number! 



Send $49,95 ($69.95 for Rom) 
plus $4 shipping and handling 
(N.Y.S. residents please odd 7%) to: 
COMPUTER SOFTWARE SERVICES 
P.O. Box 17660 
Rochester, New York 14617 



A 

ATARI 

ONLY 

$49.95 



PROTECT your DISK programs and 
files BEFORE lending them out! 

THE 

'PROTECTOR"!™ 



A 

ATARI 

ONLY 

$49.95 



Includes hardware and software! The "PROTECTOR" 
produces a true BAD SECTOR GENERATOR which will allow you 
to create BAD SECTORS wherever you wish (approximately 10 
per second!). You'll never have to fool with ridiculous speed 
adjustment or tape jerking schemes again! Simple do it 
yourself installation requires 15 to 20 minutes! 

The DISK software Is the most versatile that we've ever seen 
and It's lightning FAST! Allows you to move and rearrange data 
anywhere on the disk, scrambles directories making them un- 
accesslble to others, and offers INSTANT mapping of file disks 
(requires one second for ENTIRE disk!). Simple operation. 

All these features are done from a 720 sector FULL VIEW 
map for total operator viewing and simplicity! 



Multiple drives 
Digitial SECTOR indicator 
Directory scrambler 
Moves/arranges data 
Selectable read/write 
Selectable start/end 
Hex conversion 
Disk Duping 



Disk mapping 
Instont map 
Compaction 
Fast formating 
Auto-formating 
Bad sector memory 
Instant restart 
Multiple copy function 



DEAUR/DISTRIBUTOR INQUIRIES WELCOME! 

Our other fine products include 
THE "Plli" and THE "SIUNCER". 



Send S49.95 plus $4 shipping 
and handling (N.Y.S. resi- 
dents add 7% sales tax) to: 
COMPUTER SOFTWARE 
SERVICES 
P.O. Box 17660 
Rochester, New York 14621 
Phone Order: 
(716) 467-9326 



Mastercard-Visa-Money 
Orders or Bank Checks. Atari 
is a TM of Atari Inc. The 
"PROTECTOR" is a TM of 
COMPUTER SOFTWARE 
SERVICES (division of S.C.S.D., 
Inc.) 1007o WARRANTY 
(replacement only - no 
refund policy.) 



A 

ATARI 

ONLY 

$149.95 



For years they said It couldn't be done . 



THE 

"IMPOSSIBLE"! 



® they claimed! 



A 

ATARI 



Backup almost any disk currently available (even heavily protected programs) with an UNMODIFIED disk drive! $149.95 

Works with ANY disk drivel 



PURPOSE: The "IMPOSSIBLE" was developed In response to the estimated half million disk drive users that own a drive other than the Atari 810 (Indus, Per- 
com, Trak, Rana, Astra, etc.) that wish to BACK UP their protected software. Due to a radically new technology developed by Computer Software Ser- 
vices, modification to your disk drive has been eliminated! The advantages are obvious! Drive warranties are not violated, the chance accidental 
damage has been eliminated, etc., etc. 

OPERATION: The "IMPOSSIBLE"! consists of a disk program (unprotected so you can moke as many backups as you wish) and a 4K STATIC RAM pack 
which is inserted intoyour computer (no soldering!)The"IMPOSSIBLE"! will read your program disk and then re-write it in an unprotected format! You may 
make additional backup copies using a sector copier or even regular DOS! Because your backup copy no longer has BAD SECTORS or EXOTIC FORMATS, 
the program data can now be manipulated Into DOS compatable files (even double density!), transfered to cassette, etc, (with the aid of our Satellite 
programs!) No user programming knowledge required. A few programs require logical thinking. 
FEATURES: 1. Backup protected disks 5. AFSD-Automatic FUZZY Sector Discriminator 

2. Handles most MULTI-LOAD programs 6. Expands computer memory to 52K usable 

3. Makes DOS files (with Satellite option) 7. Simple NO SOLDER installation 

4. Up to 90K data Input capable 8, Satellite expandable 

PROJECTED SATELLITES: A "COMPACTOR" program which will convert your program into DOS compatable files (double density compatable!) for the 
storage of several programs on one disk. A "COLUM N 80" program for Word Proccessing, etc. It allows 80 columns on the screen! The "XL-MATE" will allow 
programs made with your 400/800 "IMPOSSIBLE"! to now play on your XL Computer! The METAMORPHOSES II program will ollowyou toconvertyour pro- 
tected CASSETTES Into disk DOS files and vice-versa. All satellite programs must be used with inconjunctlon with The "IMPOSSIBLE"! 
REQUIREMENTS: The "IMPOSSIBLE" diskette, the 4K STATIC RAM pock, a 400 or 800 computer (please specify!) with 48K and "B" Rom's. NOTE! The very old- 
ATARI computers were shipped with "A" Rom's which had some serious "Bugs". Even If you don't own an "IMPOSSIBLE," you should upgrade to "B" Rom's 
(simple to install!) We have them available at a very Inexpensive price. CALL US! "XL" version available soon! 

NOT A PIRATING TOOL: We at C.S.S. did not design The "IMPOSSIBLE"! to put Software Manufactures out-of-buslness overnight! Nearly all of our products 
have been "ripped-off" by industry parasite who hove little or no ability to develop a product of their own so we can sympathize with their dilemma. All 
C.S.S. products have built-in safe guards which prohibit their use for flagrant pirating. The "IMPOSSIBLE"! is no exception! While The "IMPOSSIBLE"! back- 
up the most heavily protecfexj programs. It also checks to see that the 4K STATIC RAM pack Is Installed before allowing the backup copy to 
execute! 



EXAMPLES: The "IMPOSSIBLE"! has been tested on 300 of the most pop- 
ular and heavily protected programs we could find. With nearly 4000 
programs for Atari, we DO NOT guarantee that It will backup all pro 
grams in the post-presenf-and future! We will supply updates at S6 each 
(non-profit!) if and when necessary. Programs we have successfully 
backed up Include: Blue Max, Visi-cal, Archon, Mule, File Manager 800 
+ , Syn Cole, Syn File, One on One, 7 Cities of Gold, Super Bunny, Load 
Runner, Drol and Gumboil just to name a few! 



Mastercard- Visa-Money 
Orders or Cashier Check. 
Phone:(716)467-9326 

Please specify computer 
model numberl 



Send $149.95 plus 

$4 shipping and handling 

(N.Y.S. residents please add 7%) 

COMPUTER SOFTWARE SERVICES 
P.O.BOX 17660 
ROCHESTER, N.Y. 14617 
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Keypad 







24K Disk 



by Jonathan Buckheit 



While Atari offers a plethora of features not found 
on "professional" systems, one feature lacking is a nu- 
meric keypad. This was a perfect candidate for inclu- 
sion on the new XL lines; sadly, it wasn't included. 

In brief, a numeric keypad streamlines the entry 
of digits. Instead of having the keys on the top row 
of the keyboard, a group of keys are off to the side 
of the keyboard itself. Another solution is to have 
keys on the keyboard toggle from a certain function 
to serve as keypad keys. Many of the portable systems 
implement this. 

For the Atari owner who wishes to have this fea- 
ture, there are several routes. One is to buy Atari's 
add-on keypad. This is expensive, and the required 
software uses the infamous page 6, destined to get in 
the way of a lot of software. Another solution is to 
buy a new keyboard! Some manufacturers of add-on 
keyboards offer this feature. This may be good for the 
Atari 400 owners out there, but why should the owner 
of another Atari computer— who has a perfectly good 
and usable full-stroke keyboard— buy another? 

You can choose to implement a numeric keypad 
through software. This seems like a perfect solution 
and, if implemented correctly, it comes close. Note 
that 1 do consider a BASIC program which converts 
the keys unacceptable; you can only use the keypad 
within the realm of that BASIC program. 



If you read the title of this article, you can see that 
the solution is a couple of paragraphs away. . . 
How to design the "perfect" keypad. 

When you press a keyboard key, an IRQ interrupt 
is requested. The Atari is interrupted and, for a few 
fractions of a second, it takes care of the interrupt. 
Think of it as someone tapping you on the shoulder. 
You run off to perform another task and then return 
to do what you were doing previously. 

This process is beautifully illustrated by Chris Craw- 
ford on the Atari Video Visits Tapes (circulated by 
some user groups). In the case of a keyboard interrupt, 
the Atari goes to the address pointed to by VKEYBD 
at 520 ($208). 

What would happen if we changed VKEYBD to 
point to our custom routine? Well, we would have 
almost full control of the keyboard! We can even im- 
plement a keypad routine. 

Now it's a piece of cake. We handle the keys just 
like the OS routine does, with one exception: if the 
Numeric Keypad is on, we replace certain keys with 
their Keypad counterparts! 

If you haven't guessed by now, that's what I imple- 
mented. The following keys are redefined: 

789 > 789 

UIO > 456 

JKL > 123 

M > 9 
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How can we key in both a U and a 4? Good ques- 
tion. The above keys fUp from one definition to an- 
other at the toggle of the CTRL-4 key. The defaults 
are the regular letter definitions. Press CTRL-4, and 
you get the Keypad keys. Press it again, and you go 
back to letters. 

Typing in Keypad. 

To get Keypad working, you can type it in via two 
methods. The first is to type in the assembly listing 
(created with OSS's MAC/65) and assemble to disk 
under the filename KEYPAD.COM. The second way 
is to type in the BASIC loader. It will check the data 
and then write out to disk the file KEYPAD.COM. 

If you have DOS XL or OS/A+ , you can now have 
the Keypad load and initialize by typing KEYPAD 
from the command processor. If you don't, I suggest 
renaming the file AUTO RUN. SYS to have it boot 
up during powerup. If you already have an AUTO- 
RUN.SYS file on the disk, rename it TEMP. Now re- 
name KEYPAD.COM as AUTORUN.SYS. Finally, 
copy TEMP to AUTORUN.SYS, using the append 
feature of the copy command (see your manual under 
"copy" for details). You can now delete TEMP. 

The Keypad will load in at the value indicated by 
MEMLO. That is, it inspects the system low memory 
pointer and loads the routine at that location (by re- 
locating itself). Next, it raises the low memory pointer 
to protect itself. See the source code for details. What 
this boils down to is that loading Keypad will wipe 
out any program already in RAM. 

Naturally, Keypad is protected against SYSTEM RE- 
SETs, so you don't have to type in a USR call or a 
GOTO address after every RESET. If you want to dis- 
able Keypad (to go to Atari DOS, etc.), hold down 
OPTION while you press SYSTEM RESET. 

Assembly code documentation. 

Often even a commented assembly code listing can- 
not really inform the reader of what's going on. Here 
then, is a line-by-line description of the code. 

Lines 100-340 — These lines contain the pro- 
gram's title (110-140) and the program equates 
(200-340). I prefer to equate most addresses, be- 
cause it keeps things clear in my head and makes 
for very readable assembly code. 

Lines 400-1030 — Coldstart (powerup rou- 
tine). This routine is executed during powerup 
only. Powerup does not necessarily mean reboot- 
ing the computer. It is more proper to say that 
this routine is executed during the load process 
of the Keypad only. 

Line 400 — Sets the origin of this routine. 
Location $4000 (16384 decimal) is where the pro- 
gram loads initially; it is out of most everyone's 
way. Putting this code lower in memory might 
interfere with DOS and/or various other routines 
placed in low memory. 

Lines 430-460 — Save the contents of DOSl- 



Nl in the JSR call at Line 1100. Now (at Line 
1100), instead of JSR KEYPAD, it reads JSR (con- 
tents of DOSINI). During a SYSTEM RESET, 
the Atari calls (JSRs to) the routine pointed to 
by DOSINI. Usually, this is DOS (if it's booted). 
If you wish to hook a program into the SYSTEM 
RESET chain, you save DOSINI's contents, so 
you may call the last application hooked into the 
RESET chain (normally DOS). 

Lines 480-510 - Point the RESET vector 
(DOSINI) to our routine. Since we load our pro- 
gram at the contents of MEMLO (which indi- 
cates the lowest free memory address), pointing 
DOSINI to the contents of MEMLO is akin to 
pointing DOSINI toward the first byte of our 
program. 

Lines 530-870 — Relocate the program. This 
routine is not relocatable, and several instructions 
must be changed to point to the new address of 
the code (which will be at low memory). Since 
this program is small, we can change the instruc- 
tions which are not relocatable, using LDAs and 
STAs. Larger programs would have to use a relo- 
cation program, along with a relocation bitmap. 
For a discussion of relocatable programs, I refer 
you to Bill Wilkinson's "Insight: Atari" columns 
in Compute! magazine (July 1983, August 1983, 
September 1983 and January 1984). 

Lines 890-1010 — Move the relocated code 
to the contents of MEMLO (low memory). 

Line 1030 — Calls the setup routine. 

Lines 1090-1440 — Are the RESET routine. 
This routine is called each time SYSTEM RESET 
is pressed and at the initial load of the routine. 

Line 1100 — Boots the last application (see 
above). 

Lines 1120-1210 - Check to see if OPTION 
is pressed. If it is, the routine is "unhooked." It 
is removed from the SYSTEM RESET chain, and 
the setup routine is not called. 

Line 1240 — Disables IRQ interrupts. We do 
this because of a problem on all 6502 computers: 
you can only change one byte of a two-byte vec- 
tor at a time. If we've changed one byte, and the 
user causes an IRQ interrupt before we change 
the second byte, terrible things might happen. 
VBIs follow the same principle. 

Lines 1270-1320 - Point VKEYBD to our 
routine. Now all key presses will cause the com- 
puter to call our routine instead of its own. 

Line 1340 — Enables IRQ interrupts. Since 
we have changed the vector, it's safe for them 
to function again. 

Lines 1360-1440 — Move the low memory 
pointer over our routine, so we will not be over- 
written. Most programs (if not all), such as BA- 
SIC, use MEMLO to determine where to place 
their programs. Since we are under where the 
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Atari thinks low memory is, we won't be over- 
written. The routine then exits with an RTS in- 
struction. 

Lines 1500-2410 — Contain the replacement 
keyboard routine. This routine replaces the OS 
keyboard handler. 

Lines 1510-1520 — Save the Y register onto 
the stack. We must save all registers that we use, 
except the accumulator, which is saved by the 
OS IRQ handler. 

Lines 1540-1580 — Check to see if the same 
key is pressed as the last one. If it is, we check 
to see if the key delay (KEYDEL) timer has ex- 
pired. Only if it has do we accept the key. This 
is what causes the delay between keys that are 
auto-repeating. 

Lines 1610-1670 - Check to see if CTRL-1 
is pressed. If it is, SSFLAG is toggled from on 
to off, or vice versa. Many OS routines check 
for SSFLAG. If it's on, they wait until it's turned 
off before they will function (also known as a 
pause ). 

Lines 1700-1800 - Check to see if CTRL-4 
is pressed. If it is, TOGGLE is toggled (like an 
SSFLAG). Thus, Keypad knows whether it must 
convert keys or not, by checking TOGGLE. 



Lines 1850-1860 — Check to see if TOGGLE 
is set. If it isn't, keys are converted. 

Lines 1930-1970 — Replace certain keys with 
their Keypad counterparts. 

Lines 1990-2010 — Report the key as pressed. 

Lines 2030-2040 - Set KEYDEL. If you want 
to change this parameter (for an explanation of 
what it does, see above), change the LDA #$03 
to another value. 

Lines 2060-2070 — Cancel the attract mode 
(when the monitor starts changing colors). As 
the manuals state, when a key is pressed, attract 
mode stops. 

Lines 2100-2110 — Set the auto-delay rate 
(the delay between when you press a key and 
when it starts to repeat). If you change the LDA 
#$30 to another value, you can change the auto- 
delay rate without using Sammie McCaa's Fast 
Repeat Key from ANALOG Computing issue 
16. 

Lines 2140-2170 — Retrieve the Y register 
(which we saved) and the accumulator (which the 
OS saved) from the stack. 

Line 2190 — Exits the IRQ interrupt. 

Lines 2210-2250 — Get the replacement key 
for the key just pressed from the key table. 



FOR ATARI *400/800/1200/600XL/800XL' 



Gl?i© 



^^IL. [^@gg 



(?ie(p BIKES* SB0;;it« Bm^ a3ss:i" sisraseGspe 

For ATARI 800XL, 1200XL, 600XL with 
64k. Replacement operating system to run 
the vast majority of all ATARI software. No 
translator or disk to load! 
Proper RESET operation especially impor- 
tant for programs like LETTER PERFECT, 
DATA PERFECT, TEXT WIZARD, etc. 
One touch access to extra RAM, all RAM. 
One touch BASIC on. 
Easy plug in installation and much more! 

•••SPECIAL OFFER*^* 
Until december 31, 1984 receive 
MacroMon XL free with purchase of the 
XL BOSS!— Disk a $30 value — excellent, 
unic)ue monitor for beginner and pro 
alike— written especially for the BOSS. 
Please specify computer model. $79.95 
for SOOXLVeOOXL with 64K* $89.95 for 
1200XL*. 



% 



Uen 
acroware 




diskwiz-ll 



PFIMTWIZ 



Fast and easy to use repair, edit, ex- 
plore, dup, disk utility package. Single 
load, single or double density. Special 
printout capabilities. 
Repair or change of linked DOS2 or 
OSA-l-2 files, directories, dup 
filenames. Fast searches, mapping, file 
trace. Disassembler, speed check and 
much more! Low priced, fast, easy, 
and powerful! $29.95 16K Disk. 



An all machine language text, 
graphics, mixed mode dump for EP- 
SON, GEMINI, NEC, PROWRITER, 
OKIDATA, M-T SPIRIT, 160L, 
KXP-1090, DMP-80, ISD 480, 
SEIKO/AXION CP550A. 
Self booting can be used while pro- 
gramming or even running other pro- 
grams. 

Work with or without BASIC, ED/ASM, 
PILOT, LOGO. Calendar generator. 
Horizontal format allows text to be 
continued in same direction. Change 
widths, height, center and much more 
from the keyboard or your program. 
Special handlers for PAINT, Micro- 
Illustrator, LOGO, Micropainter, etc. 
Includes LISTER program for inverted 
and special characters plus demos and 
ideas. $29.95* 16K Disk-All Inter- 
faces. 

P.O. BOX 2205/REDONDO BEACH, CA 90278 
(213) 376-4105 

* Trademark of Atari, Inc. 



Send s.a.s.e. for update info. 

TERMS: U.S. funds; check or M.O. 
add $2.50 shipping/handl- 
ing add 6% CA — 6.5% LA 
COUNTY add $3.00 for 
C.O.D. No charge cards ac- 
cepted add $2.50 foreign 
orders normally out within 
48 hours. 






CIRCLE #109 ON READER SERVICE CARD 



PAGE 16 



ANALOG COMPUTING 



ISSUE 27 



2310-2340 — are the tables of which keys 
should be replaced, and with which keys. They 
are not ATASCII, but internal code. See ANA- 
LOG Computing issue 15 for a table of these 
values. 

Lines 2400-2410 - Hold the TOGGLE 
switch value. 

Lines 2470-2480 — Set up the auto-boot. 
This enables our routine to execute when it is 
loaded. I chose to INITialize the routine instead 
of RUNning it. 

The Numeric Keypad is certainly a workable solu- 
tion to the keypad problem. It works with nearly all 
software. And, best of all, for typing in mammoth pro- 
gram listings with lots of DATA statements (you know 
the ones; a lot are printed here in ANALOG Com- 
puting), it can't be beaten for accuracy and quickness. 
Just think, the Keypad is the last program you'll ever 
have to type in using the old method! D 

Listing 1. 
BASIC listing. 



388 DATA 154,288,246,248,21,32,124,64, 

173,31,288,281,3,288,11,173,125,64,133 

,12,173,126,64,133,13,17521 

398 OATA 96,128,169,172,141,8,2,169,64 

,141,9,2,88,173,231,2,24,185,154,141,2 

31,2,144,3,238,28558 

488 DATA 232,2,96,152,72,173,9,218,285 

,242,2,288,5,173,241,2,288,62,173,9,21 

8,281,159,288,18,23814 

418 DATA 173,255,2,73,255,141,255,2,17 

6,45,281,152,288,11,173,21,65,73,255,1 

41,21,65,173,9,218,26969 

428 DATA 172,21,65,248,18,168,7,217,7, 

65,248,27,136,16,248,141,252,2,141,242 

,2,169,3,141,241,29934 

438 DATA 2,169,8,133,77,169,48,141,252 

,64,21,65,43,2,184,168,184,64,185,14,6 

5,288,227,37,1,32297 

f^?,l?556?i?4^^;i^6?65?ilS^i«'"'^*'^' 



CHECKSUM DATA. 

(see page 8) 

188 DATA 526,13,472,535,86,388,498,251 

,121,625,554,717,622,843,838,7865 

258 DATA 19,479,381,276,953,838,851,61 

3,452,148,275,264,413,729,2,6677 

488 DATA 998,449,984,1,969,3393 



188 REH mCltKmCKMmtMKMKKKMMIIMKKKKMK 

lie REH * KEYPAD CREATE * 

128 REM » by Jonathan Buckheit * 

138 REM MMmtMKKKMKMKMlCMKMKKMMMMItMK 

148 REM 

158 GRAPHICS SiPSKE 752,1:? "444Readin 

g DATA": DIM BUF5C294} 

168 ? "^Reading Line: ■■:LINE=338 

178 PeSITION 16,5:? LINE 

188 TRAP 228:F8R 1=1 TO 25-6«tLINE=44e 

) : READ A : 5UN=5UH+A : BUF$ CLEN f BUF$) +1) =C 

HR$CA]:NEXT I 

198 IF PEEK (183) +256«PEEKC184)<>LINE T 

HEN 388 

288 READ CKSUM:IF 5UM=CK5UM THEN LINE= 

LINE+ie:GOTO 178 

218 GOTO 298 

228 IF PEEKC195J06 THEN 298 

238 ON LEN(BUF$)<>294 GOTO 198:? "lf4DA 

TA lin es O. K.";? "4Insert a D05 disk, 

press ai3Qa." 

248 IF PEEK (53279) <>6 THEN 248 

258 TRAP 318:0PEN ttl,8,8,"D:KEYPAD.C0H 

268 POKE 858,ll:ADDR=ADR(BUF$) :POKE 85 

2,ASC(CHRS(ADDR)) :POKE 853,INT (ADDR/25 

6): POKE 856, 38: POKE 857,1 

278^ X=U5R (ADR ("hhhiSLVH") , 16) : IF PEEK (8 

51)>127 THEN 318 

288 ? "+File Mritten.":POKE 752,8:END 

298 ? "+Incorrect DATA at line ";LINE: 

LIST LINE:POKE 752,e:END 

388 ? "4Line ";LINE;" is Missing!":POK 

E 752,8:END 

318 ? "4DiSk HRITE error. ":POKE 752,8: 

END 

328 REM « m. DATA FOLLOHS * 

338 DATA 255,255,8,64,251,64,165,12,14 

1,125,64,165,13,141,126,64,173,231,2,1 

33,12,173,232,2,133,2996 

348 DATA 13,173,231,2,24,185,48,141,14 

7,64,173,232,2,185,8,141,152,64,173,23 

1,2,24,185,153,141,5642 

358 DATA 289,64,141,214,64,141,228,64, 

173,232,2,185,8,141,218,64,141,215,64, 

141,221,64,173,231,2,8958 

368 DATA 24,185,139,141,227,64,173,232 

,2,185,8,141,228,64,173,231,2,24,185,1 

46,141,3,65,173,232,11878 

378 DATA 2,185,8,141,4,65,173,231,2,13 

3,212,173,232,2,133,213,168,8,185,124, 

64,145,212,288,192,14981 



Listing 2. 
Assembly listing. 



1 NUMERIC 


KEYPAD 




Iby Jona 


than Buckhait 




1 Prograa 


"Eq 


uataa 




CHI 




• 02P2 




ATRACT 




*4D 




CH 




*02FC 




CTRL4 




• 9B 




CTRLl 




• 9F 




KEYDEL 




*02F1 




KBCODE 




»D2»9 




SSFLAG 




• B2FF 




BRTinR 




*022B 




VKEYBD 




«020B 




DOSINI 




«0C 




INITAD 




• 02E2 




ZPABE 




*D4 




HEMLO 




• 02E7 




C0N8QL 

1 




«D01F 




IColdatart 
1 


(Ralocata) 


Routina 



LDA 
STA 
LDA 
BTA 
LDA 
STA 
LDA 
STA 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
8TA 
LDA 
CLC 
ADC 
STA 
STA 
BTA 
LDA 
ADC 
STA 
BTA 
BTA 
LDA 
CLC 
ADC 
STA 
LDA 
ADC 
STA 
LDA 
CLC 
ADC 
STA 



*4»00 



IRalocatad. 



DQBINI iBava addraaa 
KEYPAD+1 lof tha laat 
D08INI+1 lapplicatian ao 
KEYPAD+2 I Ha nay boot it 
MEMLO I Point tha RESET 
DOSINI Ivactor to 
MEMLO+1 lour routina 
DOSINI+1 
MEMLO IRalocata... 

»KEY1RQ-KEYPAD 

Rl+l 

MEMLD+1 

»*0e 

R2+1 

MEMLO IRalocata... 

•TOBBLE-KEYPAD 

R3+1 

R4 + 1 

RS-.1 

MEMLD+1 

»*00 

R3+2 

R4 + 2 

RS + 2 

MEMLO IRalocata 

•OLDKEY-KEYPAD 

R&+1 

MEMLD+1 

11*00 

Rb*2 

MEMLO 



I Ralocata. . . 



•NEWKEY-KEYPAD 
R7-H 
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LDA 


MEMLO+1 




ADC 


»«00 




8TA 


R7+2 




LDA 


MEMLO IMova contanta 




BTA 


ZPA8E lof MEMLO to 




LDA 


MEMLD+1 IPaga Zaro 




STA 


ZPA8E+1 




LDY 


• •«« 


MOVE 


LDA 


KEYPAD, Y IHova Kaypad 




STA 


(ZPAGEi.Y 




INY 






CPY 


»T0SBLE-KEYPAD+1 




BNE 


MOVE iWa hava nora! 




BEQ 


NOIRQ Unit Kaypad 


1 RESET E 


utton Routina 


KEYPAD 


JSR 


KEYPAD laalf modlflad 




LDA 


C0N80L IConaola Kaya 
«*03 lOPTION hit? 




CMP 




BNE 


NOIRO INol 




LDA 


KEYPAD+1 IRamat tha 




ETA 


D08INI IRE8ET vactor 




LDA 


KEYPAD+2 




STA 


008INI+1 




RT8 


IRaturn 


NO IRQ 


BE I 


IDlaabla IRQ'a 


Rl 


LDA 


• <KEYIRQ llnaart naw 




STA 


VKEYBD Ikbd routina 


R2 


LDA 


» >KEYIR0 




STA 


VKEYBD+1 




CH 


lEnabla IRQ'a 




LDA 


MEMLO IMova MEMLO pntr 




CLC 






ADC 


»TQGGLE-KEYPAD+1 




STA 


MEMLO 




BCC 


RETURN 




INC 


MEMLO'l'l 


RETURN 


RTS 


IE«lt 


INaH Kay 


board Routina Follows 


KEY IRQ 


TYA 
PHA 


ISava Y Ragiatar 




LDA 


KBCODE IGat kay 




CMP 


CHI ISaaa aa laat? 




BNE 


PROCESS INo. 




LDA 


KEYDEL 




BNE 


EXIT 


PROCESS 


LDA 


KBCODE IGat kay 

»CTRL1 lla It CONTROL-l 




CMP 




BNE 


NOPAUSE INo! 




LDA 


88FLAS IToggla pauaa 




EOR 


»»FF 




BTA 


SSFLA8 




BCS 


EXIT 


NOPAUBE 


CMP 


•CTRLA ICONTROL-47 




BNE 


NOTOBSLE INo! 


R3 


LDA 


TOGGLE IKaypad flag 




EOR 


*«FF IToggla it 


R4 


BTA 


TOGGLE 




LDA 


KBCODE IRaatora kaycoda 


NOTOGGLE 






RS 


LDY 


TOGGLE IKaypad on? 
NONUM INo! 




BEB 




LDY 


»*07 IChanga 7 kaya 


LOOP 






R« 


CMP 


OLDKEY, Y IKaypad kay? 
SETNUMi!:EY lYaa! 




BEQ 




DEY 


IDo naKt! 




BPL 


LOOP IWa hava mora! 


NONUn 


STA 


CH IKay praaaad 




BTA 


CHI ILaat praaaad 




LDA 


tt*03 IDabounca rata 




STA 


KEYDEL 




LDA 


»*^e IPoka attract 




STA 


ATRACT 


^XIT 


LDA 


•*30 lAuto-dalay rata 




STA 


8RTIMR 




PLA 


IRaatora Y 




TAY 






PLA 


IRaatora Ace 




RTl 


IRaturn 


8ETNUHKEY 




R7 


LDA 


NEWKEY.Y IRaplacamant 


1 


BNE 


NONUM 


ITabla o 


-r Kaya 


1 
OLDKEY 


.BYTE »2S,*Cl,*e5 




.BYTE »»«,»«B,»BD,»B8 


NEMKEY 


.BYTE »32.»1F,»IE 


1 


.BYTE •IA,»18;«1D,»1B 


1 

iToggla 


Snitch 


TOGGLE 


.BYTE »0» 


1 Auto-Boot 
1 




1 


»" 


INITAD 


1 


.WORD COLD 


lEnd of 
I 


Prograa 


1 


.END 



ULTIMATE 
STORAGE 

Here's the perfect way to organize your ANALOG 
Computing library— sturdy, custom-made binders 
and files in deep blue leatherette with embossed 
silver lettering. Silver labels are included to index 
by volume and year One binder or a box-style file 
is all you'll need to accommodate 12 issues (1 year) 
of ANALOG Computing— all the games, pro- 
grams, tutorials and utilities that you want handy 




The ANALOG Computing binder opens flat for 
easy reading and reference. They're economically 
priced at only $7.50 each— 3 binders for $21.75 
or 6 binders for $42.00, postage paid. 

The ANALOG Computing file is attractive and 
compact, holding 12 issues for easy access. Files 
are available for only $5.95 each— 3 files for $17.00 
or 6 files for $30.00, postage paid. 

Foreign orders — add $2.50 each for shipping and handling. 
Please allow four to five weeks for delivery. 



I enclose my check or money order in the amount 
of $ . 



Send me: _ 

PLEASE PRINT. 
Name: 



ANALOG Computing files 
ANALOG Computing binders 



Address: 



City: 



state: . 



Zip Code: . 



Send your order to: 

Jesse Jones Industries 

P.O. Box 5120, DEFT ACOM 
Philadelphia, FA 19141 

Satisfaction guaranteed or money refunded. 
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Renumber 



• ' H 



»«* 



16K Cassette or 24K Disk 



by Angelo Giambra 



How would you like to instantly renumber any BA- 
SIC program by merely pressing tbe START key on 
your computer console? Instant Renumber will load 
into your computer a machine language renumber util- 
ity, which will jump into action every time you press 
the START key. Here's how to use it. 

Loading it in. 

First, key in Instant Renumber, making sure to key 
the DATA statements accurately. Save it to cassette 
or disk before running it. There are two reasons for 
this: first, if you made any errors keying in the DATA 
statements, your system will probably lock up when 
you run the program. Second, after the program runs 
correctly, it self-destructs. I'll explain why later. 

After you've saved the program, run it. Your screen 

will go black for about thirty seconds while the DATA 

statements are being read into memory. Finally, you 

will see a message similar to the following on your 

screen: 

RENUteER INSTALLED 
AT DECIMAL ADDRESS 
7232 

On your computer, this number may differ. Jot this 
address down on a piece of paper for reference. I'll 
explain why later in this article. 

Instant Renumber is now resident. It will remain 
on the job until you press SYSTEM RESET or turn 
off your computer. 



Using it. 

To activate it, load any BASIC program into mem- 
ory. List a few lines of it on your screen. Now press 
the START key on your console. The message IN- 
STANT RENUMBER appears on your screen, and 
a second later the READY prompt appears. Your pro- 
gram has just been renumbered in increments of ten. 

This renumber utility resolves all references to line 
numbers in statements such as GOTO, GOSUB, IF 
. . .THEN, etc. 

If the utility encounters no problems, it simply ends 
with the READY prompt. Otberwise, after resequenc- 
ing your program, it reports problems to you in the 
following manner. Suppose you have this program line: 

50 GOSUB leeo 

If Line 1000 is nonexistent, Instant Renumber re- 
ports it this way: 

NF 50 

This means that, on Line 50, the target address (1000) 
was not found. You must correct incorrect line num- 
bers manually. 

Symbolic references are handled in a similar man- 
ner. Consider this line of BASIC: 

20 GOTO NEXTLINE 

Instant Renumber will report this as follows: 



PRINTERS 

A/phacom 40C 

w/lnterface .... 99.95 
Alphacom 80C 

w/lnterface. . . 189.95 
Axiom AT-550 . . 279.00 

Epson Call 

Prowriter I Call 

Riteman Call 

Silver Reed Call 

Toshiba 1340 Call 

Toshiba 1351 Call 

Silver Reed Call 



ATARI MODEM 
SPECIAL 

Hayes 300 & 

R-Verter 239 

Kayes 1200 & 

R- Verier Call 

No additional shipping for Modem 
packages in Cent. USA 



SUPERPRINTER 
PACKAGES 

Gemini 10X and 

Apeface 323 

Prowriter and 

Apeface 409 

Legend 880 and 

Apeface 308 

No additional ship, charges on 
printer packages in Cont. USA 



MOSAIC 

48K RAM 94.00 

64K RAIVI/400 . . 149.00 
64K RAM/800 + 

Cable Kit #1 . .169.00 
64K Expander for 

600 XL 99.95 



Bring the trivia craze home 
with P.O. The Party Quiz 
Game for the Atari 800 & 
800XL (disk only) Call 



A ATARI 



ATARI isatrademarkof ATARI. INC. 



Atari Inc. has cut all hardware and 
software prices please call for 
latest prices!!! 




THE POWER BEHIND THE PRINTED WORD. 



Gemini 10X . . 249 Delta 15X . 
Gemini 15X . . 389 Radix 10X. 
Delta 1 0X .... 369 Radix 15X. 
Powertype 329 



.499 
.549 
.629 



DISK DRIVES 

Indus GT Call 

Pe/com Call 

Astra 2001 Call 



MODEMS 

Hayes Amart 

Modem 300 

Mark II 

Mark Vll/Aufo Ans/ 

Auto Dial 

Mark XII/1 200 Baud. 

MPP 1000 C 

R-Verter Modem 

Adaptor 

Prometheus 



. Call 
79.00 

. . Call 
. , Call 
. . Call 



39.95 
. Call 



INTERFACES 

Aid interfast I 

Ape Face 

R-Verter Modem 

Adaptor 

MPP 1150 



, Call 
.Call 



. 39.95 
. . Call 



■m- Call for prices on joysticks, printer cables, blank floppy disks, and other computer accessories, lir 
ATARI SOFTWARE 



ACCESSORIES 

Ape -Link 29.95 

Gemini lOX 8K Upgrade .... Coil 

Koaia Pad-D 69.95 

Koaia Pad -Cart 74.95 

Humply Dump-D 29.95 

Monitors Oali 

CompuServe Starter 27.95 

Vidtex . . . : 29.95 

EIS Subscription Kit 64.95 

Ailen Voice Box II -D 99.95 

Analog Compendium 9.95 

Atari Assembler 14.95 

Compute's Machine 

Lang /Beg 12.95 

Inside Atari Dos 19.95 

Mapping ttie Atari 14.95 

Compute's 1st -3rd Books 

Atari -EA 12.95 

Printer Stand 16.95 

Omnimon 82.95 

Omnlview 80 39.95 

Printer Ribbons Coil 

Ramrod XL Gall 

WIGO Joysticks Call 

MPP 64K Printer Buffer Call 

U-Prinf 16, 32, or 64K Buffer. Gall 

TAG ill Joystick 12.95 

Slattlghter Joystick 9.95 

Ramrod XL 99.95 

t^uppet Keys (XL Only) - D . 54.95 

ACTIVISION 

Decatholon-Cart 29.95 

Beamrlder-Cort 29.95 

Hero; Cart 29.95 

Pilfoil li-Gart 29.95 

River Raid -Cart 29.95 

Designer Pencil - Cart 29.95 

Space Shuttle- 29.95 

Lone Ronger - Cart 29.95 

Zenji - Cart 29.95 

AVALON HILL 

Call for Items and prices' 

BRODERBUND 

Bank Street Writer -D 49.95 

Loderunner-D 23.95 

Mask of the Sun - D 27.95 

Operation Wtilrlwind - D . . . 27,95 

Spelunker-D 20.96 

Stelth • D 20.95 

Whistler's Brother 20.95 

Print Shop - D 34.96 

Serpenrs Stor-D 27.95 



CBS SOFTWARE 

Call for items and prices 

DATASOFT 

Bruce Lee-D/T 23.95 

Mlcropainter-D 23.95 

LostTomb-D/T 23.96 

Moncopter-D/T 23.95 

l^eridan lll-D/T 27.96 

Letter Wizard + Spell -D. .54.95 
Conan the Barbarian -D/T. 27.95 
l^r. Do-D/T 27.95 

DISKEHES 

Dyson Coil 

Verbatim For 

Certron 10 pok 

Elephant & 

MaxeW Quantity 

Memcrex Pricing. 

Ultra Magnetics 

BASF 

ELECTRONIC ARTS 

Archon-D 29.95 

PInball Construction - D . . . 29.95 

M.U.LE.-D 29.95 

Murder / Zinderneuf - D . . . . 29.95 

One on Cne-D 29.95 

Archon II -D 29.95 

Financial Cookbook - D 37.95 

Music Construction - D 29.96 

Realm/Impossibility - D 29.96 

EPYX 

Gall for items and prices 

INFOCOM 

Deadline -D 29.95 

Enchanter- D 23.95 

Infidel -D' 29.95 

Planetfall-D 24.95 

Sorcerer- D 29.95 

Starcross-D 29.95 

Suspended - D 29.95 

Witness-D 29.95 

Sea Stalker-D 24.95 

Cufthroots-D 24.95 

Suspect-D 24.95 

HItchiker-D 24.95 

Zork 1 - D 24.95 

Zork II or 111- D 27.95 



MICROPROSE 

Chopper Rescue -D/T ... . 23.95 

Floyd /Jungle -D/T 23.95 

Hellcat Ace-D/T 23.95 

MIg Alley Ace-D/T 23.95 

NATO Commander - D / T . . 23.95 

Solo Fllght-D/T 23.96 

Spitfire Ace-D/T 23.95 

Wlngmon-D/T 23.95 

Air Rescue l-D/T 23.95 

Challenger -D/T 23.95 

F-15 Strike Eagle-D/T. ,. .23.96 

MISCELLANEOUS ATARI 

Dlskey-D 34.95 

Ultra Disassembler -0 34.95 

Codewrlter-D 69.96 

Star League Baseball D/T 23.95 
Star Bowl Foatball-D/T ..23.95 

Dino Eggs-D 27.95 

Master Type - D / Cart 27.95 

Flight Simulator 11 -D 37.95 

S.AM. - D 41.95 

Castle Wolfensteln-D ,...20.95 
Compusen/e Starter Kit. . . .2795 

Home Accounlanl-D 49.95 

Megafont 11 -D 19.96 

Monkey Wrench 11 -C 37.95 

Movie Moker-D 37.95 

Ultima ill - D 41.95 

Jupiter Mission -D 3495 

Boulder Dash -D/T 20.95 

Scraper Caper - Cort 34.95 

Miner 2049'er-Cart 34.95 

Spy Hunter -Cart 29.95 

Tapper -Cart 29.95 

Up N Down-Cart 29.95 

Beoch Landing -D 27.95 

Pic Builder -D 27.95 

Astrochase - D 20.96 

Flip-Flop-D/T 20.96 

Sorgon 11-D/T 16.95 

Oidesto Chess - D 49.95 

Millionaire -D 27.95 

Spy vs. Spy - D 23.95 

Adventure Writer -D 41.95 

MMG Basic Corrpller-D . . 69.95 

Summer Games - D 27.95 

Pllstop II -D 2795 

Gateway to Apshal - Cart . . 27.95 
Montezuma's Revenge -D , 29.95 



MISC. ATARI (cont'd.) 

Drogcn/Pem-D 27.96 

Adventure Master -D 34.95 

Get Rich Series -D 3496 

Q-Bert-Cart 3495 

MPP Modern Driver -D .... 19.95 

MIcrofiler-Gart 34.95 

Microcheck-D 34.95 

Mr. Do's Castle -Cart 3495 

Frogger 11 -Cart 34.95 

Net Worth - D 54.96 

Stickybear-D 27.95 

Fischer Price -Cart 19.95 

Windham Classics - D 19.95 

Omnltrend Universe -D 69.95 

Space Beagle -D 23.95 

Adventure Writer - D 41.95 

Beachhead -D 23.95 

Letter Perfect / Spell - D . . . 74.96 
Harcourt / Bruce S.A.T.- ,,69,95 
S.A.G.E. Graphics Editor -D 39,95 

Strip Poker-D 23.95 

Millionaire -D 27.95 

Scroll of Abadon - D 23.96 

OPTIMIZED SYSTEMS 

Action -Cart 69.95 

Basic XL -Cart 69.95 

MAC/65-Cart 69.96 

MAC/66 Tool Kit -D 27.96 

Action Tool Kif-D 27.95 

DOS XL - D 27.95 

Action Aid-D 2795 

C65-D 59.95 

Handy- Writer -D Coil 

Postal Tool - D 41.95 

PrlnfTool-D 41.95 

SIERRA ON-LINE 

Dark Crystal - D 27.95 

Homeword-D 49,95 

Quest For Tires - D 23.95 

Uifima II -D 41.95 

Ultima 1-D 23.95 

SPINNAKER 

Adventure Creator -D 22.95 

Aerobics - D 27.96 

All In the Color Caves - C . . 22,95 

Alphabet Zoo - Cart 22,95 

Delta Drawing - Cart 22,95 



To Order Call Toll Free 

800-558-0003 



For Technical Info, Order 
Inquiries, or for Wise. Orders - 

414-351-2007 



SPINNAKER (cont'd,) 

Pacemaker -Cart 22,96 

Frocflon Fever - Cart 22.95 

Grondmo's House - D 19.95 

Kids on Keys - Cart 22.96 

Kindercomp - Cart 22.95 

Search / Amazing Thing - D 22.95 

Snooper '1-D 22.95 

Snooper '2-D 22.95 

Story Machine - Cart 22.95 

Trains -D 22.95 

SSI 

Carrier Force -D 41.95 

Combat Leader - D/T 27.96 

Cosmic Balance II -D 2795 

Cosmic Balance -D 27.95 

Broadsides -D 27.95 

War In Russia -D 66,96 

60 Mission Crush - D 27,96 

Questron - D 34,95 

Ralls West-D 27.95 

Bomb Alley -D 41.95 

Computer Ambush - D 41.96 

Galactic Adventures - D . . . . 41.95 

Computer Baseboll - D 27.95 

Reforger 88 -D 41.95 

Objective Kursk -D 27.96 

Breakthrough / Ardennes - D 41.95 

Field of Fire - D 27.95 

imperial Golocflum-D 27.95 

SYNAPSE 

Air Support-DA 23.95 

Alley Gat-DA 16.95 

BiueMax-DA 23.96 

Dimension X-D/T 23.95 

Drelbs - DA 23.96 

Electrician -DA 23,96 

Encounter- D 16.96 

Fort Apocalypse - DA 23.95 

Necromoncer • DA 23.95 

New York City -DA 23.95 

Phoroah's Curse -DA 23.95 

Quoslmodo-DA 23.95 

Rainbow Walker - DA 23.95 

Relax Stress Reduction Sys. .79.95 

Shdmus Cose 11 - DA 23.95 

Zepplln-DA 23.96 

Synflle-D 49.95 

SyncQio-D 49.95 

Synfrend - D 49.95 

Synchron - D 27.95 

Syncomm-D 2795 

Synsfock - D 27.95 

D-Dlsk T-Cassette 
Cart-Cortrldge 
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Est. 1982 

ORDERING INFORMATION. Please specify system. For fast delivery send cashier's check, money order or direct bank transfers. Personal and 
company checks allow 2 weeks to clear. Charges for COD are $3.00. School Purchase Orders welcome. In CONTINENTAL USA, include $3.00 
shipping per software order. Include 3% shipping on all Hardware orders, minimum $3.00. Mastercard & Visa please include card # and expiration 
date. Wl residents please add 5% sales tax. HI, AK, FPO, APO, Canadian orders — add 5% shipping, minimum $5.00. All other foreign orders, 
please add 15% shipping, minimum $10.00. All goods are new and include factory warranty. Due to our low prices, all sales are final. All defective 
returns must have a return authorization number. Please call 414-351-2007 to obtain an RA# or your return will NOT be accepted for replacement 
or repair. Prices and availability are subject to change without notice. 



COfVlPUTABILITY 

P.O. Box 17882 

Milwaukee, Wl 53217 

ORDER LINES OPEN 
Mon-Fri 11 AM - 7 PM CST 

Sat 12 PM -5 PM CST 
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5R 20 

This means that, on Line 20, there is a symbolic refer- 
ence. You'll have to adjust these yourself. 

Not all messages indicate an error. Sometimes we 
turn off the TRAF statement by assigning it to a non- 
existent number, such as TRAP 40000. The Instant 
Renumber program will report lines which use this 
convention with an NF message, although they are 
not truly errors. 

Never activate Instant Renumber until you have 
listed the program to the screen. It is not necessary 
to list the entire program. Just type in LIST, press RE- 
TURN, then immediately press the BREAK key You 
must do this, because BASIC keeps a set of internal 
pointers which tell it where program lines begin and 
end. When you add or delete lines, BASIC sometimes 
does not update its pointers until several changes have 
been made. Instant Renumber needs these pointers 
to be current. Listing the program forces BASIC to 
do an update. 

Sometimes you may want to renumber your program 
in increments other than ten. Instant Renumber may 
be activated manually. Earlier, I told you to jot down 
the decimal address that appears on the screen after 
the utility installs itself. To manually run it, key in 
a USR statement like the following: 

K=U5RC72^2,100,5) 

In this example, 7292 represents the decimal address 
you jotted down. Remember, your number may differ. 
The next number, 100, is the base number. It tells 
Instant Renumber that you want your first program 
line to be resequenced as Line 100. The last number, 
5, tells the utility to increment each successive line 
by 5. 

How it works. 

Here's how the program works. It first installs In- 
stant Renumber in low memory. This varies on differ- 
ent systems, depending on — among other things — 
whether you have cassette or disk. It protects the util- 
ity by altering the LOMEM pointer to point to the 
end of the machine language code. That way, BASIC 
will never use- the memory occupied by Instant Re- 
number. That's why the program vanishes after you 
run it. Altering the LOMEM pointer forces BASIC 
to realign all of its internal pointers, and it loses track 
of where the current program is! 

Next, the program activates a vertical blank inter- 
rupt routine, which also resides in low memory. A 
VB interrupt routine is a series of instructions your 
computer executes every sixtieth of a second. You 
don't know it's running, but it is always there. The 
VB interrupt is constantly checking to see if you have 
pressed the START key. If you have, it activates In- 
stant Renumber. 

One final note for those of you with disk drives. 
When you key in DOS, the DURSYS file begins to 
load into the same area of memory occupied by the 



VB interrupt routine. Normally, this would cause the 
system to lock up. The program guards against this, 
by providing for an automatic SYSTEM RESET the 
first time you key in DOS. Instead of going to the 
familiar DOS menu, your screen will flicker, and you 
will remain in BASIC. Simply key in DOS again to 
get to the DOS menu. 

Fast relief. 

Because Instant Renumber is written entirely in 
machine language, it is incredibly fast. Even programs 
which exceed 500 lines are renumbered in less than 
two seconds. 

1 think you'll find Instant Renumber an invalu- 
able tool. Renumbering your BASIC programs was 
never so easy! D 



Listing 1. 

lee REM ASSEMBLER RENUMBER UTILITY 

lie REM BY ANGELO GIAHBRA 

120 REM 

130 REM SINCE THE RENUMBER UTILITY IS 

140 REM NOT FULLY RELOCATABLE, BASIC 

150 REM LOOKS FOR THE JSR'S AND FIXES 

160 REM THE ADDRESSES 

170 REM 

ISO 1=794: REM START OF HANDLER TABLE 

190 IF CHR$CPEEKtIlJ<>"E" THEN I=I+3:G 

OTO 190 

200 ADDR=PEEK CI+1) +PEEK CI*2J«256t6 : REM 

GET EDITOR PUTBYTE ADDRESS 
210 ADDR1=PEEK (ADDRJ 4PEEK (ADDRHhl}«256+ 
l:REH COPY EDITOR PUTBYTE ADDRESS 
220 AD2=INT(ADDRl/256) : AD1=ADDR1-AD2*2 
56 

230 LET L0MEM=PEEK(743J+PEEKt744)»256: 
POKE 559,e:AM0UNT=25000 
240 HIMEM= CPEEK {106) -16)«256 : I=HIMEM 
250 FOR 0=0 TO 702: READ A 
260 IF C0UNT=15 OR C0UNT=84 OR C0UNT=2 
68 OR C0UNT=247 OR C0UNT=252 OR COUNT= 
257 THEN GOSUB 300: GOTO 260 
270 IF C0UNT=260 OR C0UNT=403 OR COUNT 
=408 OR C0UNT=413 OR C0UNT=428 THEN GO 
SUB 300: GOTO 260 

280 IF C0UNT=444 OR C0UNT=451 OR COUNT 
=459 OR C0UNT=480 OR C0UNT=518 THEN 60 
SUB 300: GOTO 260 

290 POKE I,A:I=I+l:COUNT=COUNT+l:NEXT 
Q:GOTO 340 

300 POKE I, A: 1=1+1: READ LO:READ HI 
310 IF L0=0 AND HI=0 THEN L0=AD1:HI=AD 
2:G0T0 330 

320 ADDR=L0+256«HI : OFFSET=ADDR-AMOUNT : 
HI=INT C (LOMEM+OFFSETJ /256) : LO=LOMEM*OF 
FSET-HI»256 

330 POKE I,LO:I=I+l:POKE I,HI:I=I+1:C0 
UNT=C0UNTHH3:READ A : 0=0*3 : RETURN 
340 0=1 i TRAP 38e:C0UNT=e 
350 READ A 

366 IF C0UNT=193 OR C0UNT=242 OR COUNT 
=264 THEN GOSUB 440: GOTO 360 
370 POKE Q,A:Q=Q+l:COUNT=COUNTHHl;GOTO 
350 

380 INSTALL=PEEK C743) +PEEK C744)K256 : ? 
"H" 

396 POSITION 10,7:? "RENUMBER INSTALLE 
D": POSITION 18,8:? "AT DECIMAL ADDRESS 

II 

400 POSITION 16,10:? INSTALL: POSITION 

6,23 

416 POKE 559,34 

420 X=USRCI,HIHEH,I} 

430 END 

440 POKE Q,A:0=Q+1:READ LO:READ HI 

450 POKE Q,AD1:Q=Q+1:P0KE a,AD2:a=0+l: 

C0UNT=C0UNTHH3:READ A: RETURN 
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46e»ATa 164,201,2,240,20,170,248,5,10 

4.104.202,208,251,169,453,32,0,0,169,3 

, 133 1 185 , 76 , 64 

470 DATA 185,104,133,232,104,133,231,1 

04,104,133,233,165,136,133,203,165,137 

,133,204,165,231.133,229,165 

480 DATA 232,133.238,160,0,177,203,133 

4T36?S?6!Ig4fli^!!!^?lS6^«'"^'^«^'" 

490 DATA 54,200,177,203,133,207,200,17 

7,203,133,208,208,32,43,98,165,208,197 

,207,208,28,165,203,24 

500 DATA 101,207,133,203,165,284,105,0 

,133 ,204 ,165, 229 ,24 , 101 , 233 , 133 , 229 , 14 

4.2,230,230,160,0,240 

510 DATA 188,164,208,169,0,240,208,169 

,0,240,35,177,203,201,10,240,31,201,11 

,240,27,201,12,240 

520 DATA 23,201,13,240,19,201,35,240,1 

5,201,38,240,5,201,7,240,3,96,240,71,2 

40,71,248,73 

530 DATA 200,177,203,201,20,240,68,201 

,22,240,64,201,14,208,62,200,132,227,1 

77,203,133,212,200,177 

540 DATA 203,133,213,200,177,203,133,2 

14,200,177,203,133,215,136,136,136,32, 

221,99,165,235,56,229,205 

550 DATA 165,206,240,11,165,236,176,5, 

560 DATA 184,240,45,200,96,169,83,32,0 
,0,169,82,32,0,0,169,32,32,0,0,32,72,9 
9, 165 

570 DATA 227,168,200,96,165,136,133,22 

0,165,137,133,221,165,231,133,218,165, 

232,133,219,169,0,240,24 

580 DATA 240,103,240,103,240,103,144,1 

99,165,203,133,220,165,204,133,221,165 

,229,133,218,165,230,133,219 

590 DATA 165,220,56,229,138,200,165,22 

1,229,139,240,77,160,0,165,235,56,241, 

220,133,223,200,165,236 

600 DATA 176,5,56,233,1,144,58,241,220 

,133,224,144,52,165,223,201,0,208,6,16 

5,224,201,0,240 

610 DATA 28,165,218,24,101,233,133,218 

,144,2,230,219,165,220,24,160,2,113,22 

0,133,220,144,2,230 

620 DATA 221,169,0,240,179,169,0,240,8 

7,240,77,240,77,240,77,144,149,169,78, 

32,0,0,169,70 

630 DATA 32,0,0,169,32,32,0,0,169,1,13 

3,228,165,229,133,218,165,230,133,219, 

32 241 99 32 

640 DATA 236,216,160,0,132,223,177,243 

,16,9,41,127,32,0,0,169,32,208,8,32,6, 

0,164,223 

650 DATA 200,208,233,32,0,0,165,227,16 

8,286,206,200,200,200,200,96,240,59,24 

0,17,240,58,144,175 

660 DATA 32,241,99,165,227,168,280,200 

,200,200,200,200,96,200,177,203,201,23 

,240,17,201,24,240,13 

670 DATA 201,14,208,5,152,24,165,6,168 

,169,0,240,232,200,32,81,98,177,203,20 

1,20,240,8,201 

680 DATA 22,240,4,208,240,240,48,96,20 

0,177,203,201,27,240,13,201,14,208,5,1 

52,24,105,6,168 

690 DATA 169,0,240,236,200,152,197,208 

,176,2,144,170,96,169,0,133,216,133,21 

7,32,210,217,165,212 

700 DATA 133,235,165,213,133,236,96,24 

0,47,165,218,133,212,165,219,133,213,3 

2,170,217,165,228,201,1 

710 DATA 240,25,165,227,168,165,212,14 

5,203,206,165,213,145,203,200,165,214, 

145,203,200,165,215,145,203 

720 DATA 200,200,200,169,0,133,228,96, 

165,136,133,203,165,137,133,204,165,23 

1,133,229,165,232,133,2^0 

730 DATA 165,203,56,229,138,165,204,22 

9,139,240,43,160,2,177,203,133,223,165 

,229,24,160,0,145,203 

740 DATA 165,230,200,145,203,165,229,1 

01,233,133,229,144,2,230,230,24,165,20 

3,101,223,133,203,144,2 



750 DATA 230,204,169,0,240,202,96 

760 DATA 169,0,133,8,133,2,165,9,240.8 

,169,116,133,10,169,228,133,11,104,104 

,133,208,184,133 

770 DATA 207,104,133,206,104,133,205,5 

780 DATA 133,1,160,0,177,207,145,203,2 

4,165,203,105,1,133,203,144,2,230,204, 

24,165,207,105,1 

790 DATA 133,207,144,2,230,208,165,208 

800 DATA 207,165,208,105,0,133,208,160 

,0,165,203,133,4,165,204,133,5,177,207 

,145,203,200,192,158 

f^S,?**!* 208,247,24,165,203,105,158,14 

1,231,2,165,204,105,0,141,232,2,169,7, 

164,203,166,204,32 

820 DATA 92,228,76,0,160,173,31,208,20 

1,7,208,6,169,0,133,2,240,117,201,6,20 

8, 113, 165, 2 

830 DATA 208,189,73,1,133,2,166,6,24,1 

65, 4, 105, 133, 133, 203, 165, 5, 105, 6, i33;2 

04,132,3,177 

840 DATA 203,32,0,0,164,3,200,192,18,2 

08,242,24,165,4,105,90,133,6,165,5,105 

850 DATA 6,72,169,10,72,169,0,72,169,1 
0,72,169,0,72,169,2,72,165,1,72,165,0, 

72 f 96 

868 DATA 169,155,32,8,6,166,6,24,165,4 

,165,151,133,283,165,5,165,6,133,264,1 

32,3,177,203 

870 DATA 32,0,0,164,3,200,192,6,208,24 

2,169,143,141,252,2,76,98,228,125,201, 

206,211,212,193 

880 DATA 206,212,32,210.197,206,213,20 

5,194,197,210,155,82,69.65,68,89,155 



Put a Monkey Wrench 
into your ATARI 800 or XL 



$49.95 



Cut your programming time from tiours to seconds, and tiave 33 

direct mode commands and functions. All at your finger tips and 

all made easy by the MONKEY WRENCH II. 

Ttie MONKEY WRENCH II plugs easily into 

the cartridge slot of your ATARI and works 

with the ATARI BASIC. 

Order your MONKEY WRENCH II today and „ 

enjoy the conveniences of these 33 features: 

• Line numbering 

• Renumbering basic line numbers 

• Deletion of line numbers 

• Variable and current value display 

• location of every string occurrence 

• String exchange 

• Move lines 

• Copy lines 

• Up and down scrolling of basic programs 

• Special line formats and page numbering 

• Disi< directory display 

• Margins change 

• Home key functions 

• Cursor exchange 

• Upper case lock 

• Hex conversion 

• Decimal conversion 

• Machine languoge monitor 

• DOS functions 

• Function keys 

The MONKEY WI5ENCH 11 also contains a machine* ^ 
language monitor with 16 commands that can be used - 

to interact with the powerful features of the 6502 microprocessor 





MAE 



An easy to use but powertul Macro Assembler/Editor Includes M L 
Monitor. Word Processor and more. The Best for Less' 
Now Only $59.95. 

(For use with ATARI 800 or XL and Disl< Drive ) 
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CHECKSUM DATA. 

(see page 8) 

leO DATA 237,641,80,419,165,183,26,95, 

844,477,496,385,169,734,490,5441 

250 DATA 432,412,621,656,476,724,196,8 

16,572,327,649,709,444,125,277,7436 

400 DATA 647,996,812,41,794,886,283,58 

2,309,982,53,838,171,940,271,8605 

550 DATA 671,470,479,585,252,552,640,1 

97,223,926,650,101,322,552,947,7567 

780 DATA 232,716,253,205,123,727,447,4 

89,350,357,876,796,15,155,936,6677 

850 DATA 490,213,557,654,1914 



Assembly listing. 



1 INBTftNT RENUMBER 
1 by A. Gi ambr A 

' •- (61AS 

I 

IDS EQUATES 

FPA - »DGEi IFP TO ftSCII 

FPI - •D'?D2 IFP TO INTEGER 

IFP - »D9flA (INTEGER TO FP 

INBUFF - »F3 

I 

I WORK AREAS 

PRINT " «BB 

I NOTE! BASIC WILL LOOK UP THE 

I EDITOR PUTBYTE ADDRESS AND 

IFILL THIS IN FOR US 

I 

POINTER - 136 

INDEX - »CB 

EOP - 138 

LINELDW - »CD 

LINEHI - »CE 

LINEOFFSET - »CF 

STATEUFFSET - »D0 

CURLINE - »E5 

LINENOl - »D4 

L1NEN02 - »D5 

LINENQ3 - »Di 

LINENOl - »D7 

L1NEND5 - »D8 

LINENOi - »D9 

FRO - »D4 

REFLINELO - »EB 

REFLINEHI - »EC 

FUTLINE - »DA 

31NDEX - »DC 

TEMPI - »DF 

TEMP2 - »EB 

TEMP3 • «El 

TEMP4 - «E2 

SAVEV - »E3 

FLAG - »E4 

BASE - »E7 

INCR - »E9 

ERR - »B9 

ERROR « »B940 

SPACE - »20 

I 

PLA 

CMP *2 [CORRECT NO. 

BED QOODPARAMS IDF PARAMETERS? 

TAX 

BED RINGBELL 
ERRLOOP 

PLA I ERROR 

PLA IWRONG PARAMETERS 

DEX 

BNE ERRLOOP 
RINGBELL 

LDA #233 IBELL RINGER 

aSR PRINT 

LDA (t3 [RETURN AN ERROR 

ETA ERR 

JMP ERROR 
BQODPARAMS 

PLA I THROW AWAY HIGH BYTE 

BTA BASE+1 ISTORE BASE 

PLA 

BTA BASE 

PLA 

PLA I THROW AWAY HIGH BYTE 

STA INCR ISTORE INCREMENT 

LDA POINTER IBABIC'S POINTER 

BTA INDEX ITO PROGRAM CODE 

LDA PDINTER+1 

STA INDEX*1 

LDA BASE 

STA CURLINE 1 SAVE BASE HERE 

LDA BASE+1 

STA CURLINE+1 

LDY HB 
LOOP LDA (INDEX), Y ! GET LINENO 

STA LINELOU ISTORE IT 
INY 

LDA (INDEX), Y ILDAD HI BYTE 

STA LINEHI 

LDA INDEX 
SBC EQP 

LDA INDEX-H 1 HAVE WE REACHED 
SBC EOP+1 lEND OF PR067 
BED RESEDA : THEN BO RESEQ 
INY 

LDA (INDEX), Y 

STA LINEOFFSET I GET LINE OFFSET 
INY 
NXTSTATEMENT LDA < INDEX), Y 

STA STATEOFFBET IGET STATEMENT OFFSET 



INY 

JSR CHECKTOKEN 

LDA STATEOFFBET 

CMP LINEOFFSET 1 END OF LINE? 

BNE NEXTSTATEMENT 

LDA INDEX 1 INCREMENT INDEX 

CLC (BY OFFSET 

ADC LINEOFFSET 

STA INDEX 

LDA INDEX+l 

ADC *0 

STA INDEX+l 

LDA CURLINE 

CLC 

ADC INCR 

STA CURLINE I INCREMENT LINE NO 

BCC NX2 

INC CURLINE+1 
NX2 

LDY (t» (RESET INDEX 

BED LOOP 
NEXTSTATEMENT LDY STATEOFFBET 

LDA *B 

BED NXTSTATEMENT 
RESEQA LDA *0 

BED RESEQB 
CHECKTOKEN 

LDA I INDEX) , Y 

CMP #10 

BED GOTO (CHECK THE TOKEN 

CMP #11 (IS IT ONE WE WANT? 

BED GOTO 

CMP #12 ( IS IT A SOSUB 

BED GOTO 

CMP 1113 (OR A TRAP STATEMENT 

BEE GOTO 

CMP 1135 (OR A RESTORE 

BED GOTO 

CMP 1130 (ON GOTO 

BED ONGOSUBA 

CMP 117 ( IF STATEMENT 

BED ONGOTOA 

RTS 

ITHE FOLLOWING 'BUCKET BRIGADE' 

I MAKE THE RENUMBER UTILITY 

I RELOCATABLE 

I 

ONGOSUBA BED ONBOSUBB 

ONGOTOA BED ONGOTOB 

RESEQB BEQ RESEQC 

GOTO INY 

ENTRY LDA (INDEX), Y 

CMP »20 (END OF 1ST STATEMENT? 

BEQ BOBACK 

CMP 1122 (END OF LINE? 

BEQ GOBACK 

CMP (114 (DOES A NUMBER FOLLOW? 
BNE PRINTBR 

INY 

STY SAVEY 

LDA (INDEX), Y (THIS IS A GOTO 

STA LINENOl (REFERENCE BO 

INY IGET LINE NUMBER 

LDA (INDEX), Y 

BTA LINEN02 

INY 

LDA (INDEX), Y 

BTA LINEN03 

INY 

LDA (INDEX), Y 

BTA LINEN04 

DEY 

DEY 

DEY 

JSR CONVERTIT ICONVERT BCD LINE 

LDA REFLINELO IGET LINE NO? 

SEC 

BBC LINELOW (SUBTRACT CURRENT LINENO 

LDA LINEHI 

BED CHECKFLAB 

LDA REFLINEHI 

BCS SBCA (IS REFERENCED LINE 

SEC (AT TOP OF PROGRAM 

BBC HI (OB BOTTOM? 

BCC TOPSEARCH 
SBCA SBC LINEHI 
CHECKFLAG BCC TOPSEARCH I START AT TOP 

BCS ENDSEARCH I START FROM HERE 
ONGOSUBB BEQ ONGOSUBC 
ONGOTOB BED 0N80T0C 
ENTRYF BCC ENTRY 
RESEQC BED REBEQD 
GOBACK INY 

RTB 
PRINTSR 

LDA ll»53 (PRINT SR MESSAGE 

JSR PRINT 

LDA tl*S2 

JSR PRINT 

LDA HSPACE (PRINT A SPACE 

JSR PRINT 

JSR PRINTLINENO 

LDA SAVEY I RESTORE Y 

TAY 

INY 

RTS 
TOPSEARCH LDA POINTER 

STA SINDEX (POINT TO BOP 

LDA POlNTER+l 

BTA SINDEX+1 

LDA BASE (SET BASE LINE NO 

BTA FUTLINE (STORE IT 

LDA BASE+1 

BTA FUTLINE+1 

LDA 110 

BED SEARCH 
RESEQD BEQ RESEDE 
ONGOSUBC BEQ ONG0SU8D 
DNGOTOC BEQ DN80T0D 
ENTRYE BCC ENTRYF 
ENDSEARCH LDA INDEX 1 SET SINDEX TO 

BTA SINDEX I CURRENT POSITION 

LDA INDEX+l 

BTA SINDEX+t 

LDA CURLINE I SET FUTURE LINENO 

STA FUTLINE (TO CURRENT LINE NO 

LDA CURLINE+1 

STA FUTLINE+1 
SEARCH 

LDA SINDEX (LOOK FOR REFERENCED 

SEC (LINE NUMBER 

SBC EOP (END OF PROGRAM? 

INY 

LDA 8INDEX+1 

SBC EOP+l 

BEQ NOTFOUND I YEP ! 

LDY 110 

LDA REFLINELO IGET REF LINE 
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SBC (aiNDEX),Y lARE ME THERE? 
BTft TEMPI 
INY 

UDA REFLINEHI 
BCS SBC2 
SEC 

SBC »1 

BCC NDTFDUND I COULDN'T FIND IT 
8BC2 SBC (SINDEXI.Y 
STA TEMPI 
BCC NOTFOUND 

LDA TEMPI IIS IT A MATCH? 
CMP te 

BNE CONTINUE 
LDA TEMP2 
CMP na 

BED FOUNDITA 
CONTINUE LDA FUTLINE 1 KEEP LOOKING 
CLC 

ADC INCR (INCREMENT FUTURE LINE 
BTA FUTLINE 
BCC (FAHEAD 
INC FUTLINE+1 
•FAHEAD 

LDA 8INDEX IPOINT SINDEX TO 
CLC INEXT LINE 

LDY »2 

ADC (SINDEX), Y 
BTA SINDEX I ADD OFFSET 
BCC aCONT 
INC SINDEX-i-l 
aCONT 

LDA 00 
BEQ SEARCH 
FOUNDITA LDA «e 

BEQ FOUNDIT 
RESEQE BED RESEQF 
ONSOSUBD BEQ ONSOSUBE 
ONEOTOD BEQ ONSOTOE 
ENTRYD BCC ENTRYE 
NOTFOUND 

LDA »»AE ILOAD 'N' 
JSR PRINT 

LDA •»4i ILOAD -F- 
JER PRINT 

LDA »SPACE ILOAD A SPACE 
JSR PRINT 
PRINTLINENO 

LDA «1 

3TA FLAB 1 SET FLAB 
LDA CURLINE 

BTA FUTLINE I SET FUTURE LINE 
LDA CURLINE+l 
BTA FUTLINE+1 
JSR CONVERTBACK 

JSR FPA ICONVERT TO A STRING 
LDY »B 
LPX 

STY TEMPI 

LDA (INBUFFl.Y IPRINT THE STRINB 
BPL LPXl (NOT LAST CHARACTER 
AND lt»7F ITURN OFF HIGH BIT 
JSR PRINT 

LDA SSPACE ILOAD A SPACE 
BNE ENDNF 
LPXl 

JSR PRINT 
LDY TEMPI 
INY 

BNE LPX 
ENDNF 

JSR PRINT 

LDA SAVEY 1 RESTORE Y 

TAY 

INY 

INY 

INY 

INY 

INY 

INY 

RESEQF BEQ RESEQ8 

ONSOSUBE BEQ ONBOSUB 

ONSOTOE BEQ ONEOTO 

ENTRYC BCC ENTRYD 

FOUNDIT J3R CONVERTBACK IFOUND LINE NUMBER 

LDA SAVEY 

TAY 

INY 

INY 

INY 

INY 

INY 

INY 

ONBOSUB INY IIS THIS ON B0SUB7 

LDA ( INDEX) , Y 

CMP #23 

BEQ TAKEOFF I IF YES, THEN PROCESS IT 

CMP BI* 

BEQ TAKEOFF 

CMP Itl4 I DOES A NUMBER FOLLOW? 

BNE LOOPAGAIN 

TYA 

CLC 

ADC *b IBUMP Y UP BY 4 

TAY 
LOOPAGAIN LDA *e 

BEQ ONSOSUB 
TAKEOFF INY 

JSR ENTRY 

LDA (INDEX), Y I BET TOKEN 

CMP »2a I END OF STATEMENT 

BEQ SETOUT 

CMP »22 lEND OF LINE 

BED BETOUT 

BNE TAKEOFF 
RESEDG BED RESEQH 
SETOUT RTS 
ONGOTD 

INY I IS IT ONBOTO 

LDA (INDEX), Y 

CMP »27 

BED CHECKIT 

CMP #14 I DOES NUMBER FOLLOW? 

BNE AHEAD 

TYA 

CLC 

ADC *& IBUMP Y BY 4 

TAY 
AHEAD LDA He 

BED ONGOTO IIT'E AN ONGOTO COMMAND 
CHECKIT INY 

TYA 

CMP STATEOFFSET I END OF STATEMENT? 

BCS OUT 

BCC ENTRYC IFOUND ON BOSUB 
OUT RTS 



CONVERTIT 

LDA »0 I COVERTS BCD LINE TO HEX 

STA LINEN05 I CLEAR 3 AND b 

STA LINEN06 

JSR FPI IFP TO INTEGER 

LDA FRO I GET THE INTEBER 

STA REFLINELO ISTORE IT 

LDA FRD+1 

STA REFLINEHI 

RTS 
RESEQH BEQ RESEQ 
CONVERTBACK 

LDA FUTLINE 

BTA FRO 

LDA FUTLINE+l 

BTA FRQ+1 

JSR IFP ICONVERT HEX LINE TO BCD 

LDA FLAB I CHECK FLAS 

CMP »l IIS IT TURNED ON? 

BEQ RETURN 

LDA SAVEY I RESTORE Y 

TAY 

LDA LINENQl I STUFF LINE NUMBER 

STA (INDEX), Y UNTO BASIC CODE 

LDA LINENQ2 

STA (INDEX) ,Y 
INY 

LDA LINEN03 

STA (INDEX), Y 
INY 

LDA LINEN04 

STA (INDEX), Y 

INY 

INY 

INY 
RETURN LDA H0 

BTA FLAB 

RTS 
RESEQ 

LDA POINTER I ALL LINE REFERENCES 

STA INDEX I TAKEN CARE OF 

LDA POINTER+1 I NOW RESEQUENCE THE PROGRAM 

STA INDEX+l 

LDA BASE I SET BASE NUMBER 

STA CURLINE 

LDA BASE+1 

BTA CURLINE+1 
SPINNER 

LDA INDEX I SPIN THROUOH UNTIL THE END 

SBC EOP I END OF PROGRAM? 

LDA INOEX+1 

SBC EOP+1 

BEQ ENDITALL I YES (WHEW) 

LDY •2 

LDA (INDEX), Y I GET LINE OFFSET 

STA TEMPI IBAVE IT 

LDA CURLINE I BET CURRENT LINE NO 

CLC 

LDY »0 

STA (INDEX), Y ISTORE IT 

LDA CURLINE+l 

INY 

BTA (INDEX), Y ISTORE HI BYTE 

LDA CURLINE 

ADC INCR I INCREMENT IT 

STA CURLINE 

BCC aNEXT 

INC CURLINE+1 
aNEXT 

CLC 

LDA INDEX ISO TO NEXT LINE 

ADC TEMPI 

ETA INDEX 

BCC 9N0CARRY 

INC INDEX+1 
aNOCARRY 

LDA •» 

BEQ SPINNER 
ENDITALL RTS I AT LONG LAST, THE END 



I INSTALL RENUMBER PROGRAM 
Iby A. Giambr« 

I THIS PROCEDURE WILL MOVE THE 
I RENUMBER CODE FROM HIGH MEMORY 
ITO LOW MEMORY AND FIRE UP THE 
IVERTICAL BLANK SERVICE ROUTINE 
I 

»- 15000 



I OS EQUATES 



WARMST 


B 


B 


BOOT 


m 


9 


WARMSTART - 


»E474 


SETVB 




«E4SC 


CONSOL 




»D01F 


DOSVEC 




• 0A 


MEMLO 




743 


CH 




744 


EXITVB 




*E442 


lUORK AREAS 




LOMEM 


B 


»00 


SWITCH 


B 


• 02 


1X2 


m 


4 


1X3 


m 


3 


INDEX 


B 


• 04 


IX 


B 


»CF 


IXl 


B 


• CD 


SVE 


B 


*CB 


PRINT 


- 


•00 IBASIC WILL FILL THIS 


1 OFFSETS 






DIFF 


B 


FINISH-VBROUTINE+1 


OFFSET 


B 


MSB-VBRDUTINE 


OFFSETS 


B 


READY-VBROUTINE 


QFFSETl 


B 


CR-VBROUTINE-l 


OFFSETINDEX ■ 


- INDEX-VBROUTINE 


0FFSET2 


- 


VBROUTINE-BEGIN 


BEBIN 








LDA 


«0 1 CLEAR WARMSTART FLAG 




BTA 


WARMST 




STA 


SWITCH 




LDA 


BOOT 




BEQ 


NODISK IIF HE HAS A DISK 




LDA 


It <WARMSTART 1 CAUSE RESET 




STA 


DOSVEC IIF HE KEYS IN DOS 




LDA 


» >WARMSTART 
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/ 


STA DOSVEC+1 




NQDISK 




PLA 
PLA 
STA IX+1 




IBET START ADDRESS 


PLft 


lOF RENUMBER 


STA IX 




PLA 




STA IXl+1 


ISET END ADDRESS 


PLA 




STA 1X1 




SEC 




LDA MEMLO 




STA SVE 


IBAVE LOHEM ADDRESS 


SBC *1 


IIN ADDRESS 


STA LOMEM 




LDA MEMLO+l 




STA SVE+1 




SBC as 




STA LOMEM+1 




LDY »e 




LDA (IXl.Y 


(MOVE THE RENUMBER 


STA (SVEi.Y 


lUTILITY TO LOMEM 


CLC 

LDA SVE 
ADC »1 




1 INCREMENT OUR INDEXES 


STA SVE 




BCC INCRINOEX 


INC BVE+I 




INCRINDEX 




CLC 




LDA IX 




ADC »1 




STA IX 




BCC CHECK 




INC IX+1 




CHECK 




LDA IX+1 




CMP IXl+l 


I ARE WE DONE? 


8NE L 


JNOT YET 


LDA IX 




CMP IXl 




BNE L 


INDT YET 


CLC 




LDA IX 




ADC H0FFSET2 IPQINT TO THE 


STA IX 


IVB INTERRUPT ROUTINE 


LDA IX+1 




ADC *e 




STA IX+1 




LDY »e 




LDA SVE 


(POINT INDEX TO MEMLO 


STA INDEX 




LDA SVE+1 




STA INDEX+1 




MOVEVB 




LDA (IXl.Y 


(MOVE THE VB TO LOMEM 


STA (SVEi.Y 




INY 




CPY »DIFF 




BNE MOVEVB 




CLC 




LDA SVE 




ADC ItDIFF 


tEUMP THE LOMEM POINTER 


STA MEMLO 


lUP PAST OUR ROUTINES 


LDA SVE+1 




ADC »0 




STA MEMLO+l 




LDA *7 


iSTART UP THE VB ROUTINE 


LDY EVE 




LDX SVE+1 




JSR SETVB 




JMP »A00e 


(JUMP TO BASIC 


VBROUTINE 




LDA CONSOL 




CMP »7 


[START NOT PRESSED 


BNE COMP 




LDA me 


(TURN OFF OUR SWITCH 


STA SWITCH 




BED RETURN 
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READY 
FINISH 



CMP »i 
BNE RETURN 
LDA SWITCH 
BNE RETURN 
EOR *(01 
STA SWITCH 
LDY »e 
CLC 

LDA INDEX 
ADC »DFFSET 
STA SVE 
LDA INDEX+1 
ADC 00 
STA SVE+1 



STY 1X3 

LDA (SVE) 

JSR PRINT 

LDY 1X3 
INY 

CPY »ia 

BNE MESS 

LDA INDEX 

AOC »0FFSET18<«FF 

STA 1X2 

LDA INDEX+1 

ADC »0FFSETl/25i 

PHA 



(DID THEY PRESS START 



[ARE THEY HOLDING IT 
[DOWN? IF SO, JUST RETURN 



[BET THE SWITCH 



[POINT TO THE BANNER MESSASE 



(PRINT THE BANNER 
(ADDRESS FIXED BY BASIC 



(FINISHED? 



(SET UP OUR RETURN ADDRESS 



1X2 



LDA 
PHA 
LDA »10 
PHA 

LDA It0 
PHA 

LDA »10 
PHA 

LDA »0 
PHA 
LDA »2 

LDA LOMEM+1 

PHA 

LDA LOMEM 

PHA 

RTS 



(SET UP PARAMETERS 

IFOR RENUMBER ON THE STACK 



[THIS IS WHERE RENUMBER LIVES 



[THIS RTS CAUSES AN INDIRECT 
JSR TO THE RENUMBER UTILITY 
THIS IS WHERE RENUMBER RETURNS 
[PRINT A CARRIAGE RETURN 



LDA »«7B 

JSR PRINT 

LDY »B 

CLC 

LDA INDEX 

ADC »DFFBET3 

STA SVE 

LDA INDEX+1 

ADC »0 

STA BVE+1 



BTY 1X3 

LDA (EVE),Y [PRINT READY 

JSR PRINT 

LDY 1X3 

INY 

CPY (tt 

BNE LOOPER 

LDA *143 

STA CH 

JMP EXITVB [EXIT VB 

.BYTE 125 

.BYTE +»B0 "INSTANT" 

-BYTE " " 

.BYTE +»S0, "RENUMBER" 

.BYTE »9B 

.BYTE "READY", »9B 



(POINT TO READY MESSAGE 



IBET BREAK FLAS 



Attention Programmers! 

ANALOG Computing is interested in programs, articles, and software review submis- 
sions dealing with the Atari home computers. If you feel that you can write as well as you 
can program, then submit those articles and reviews that have been floating around in your 
head, awaiting publication. This is your opportunity to share your knowledge with the growing 
family of Atari computer owners. 

ANALOG pays between $30.00-$360.00 for all articles. All submissions for publication 
must be typed, upper and lower case with double spacing. Program listings should be provid- 
ed in printed form, and on cassette or disk. By submitting articles to ANALOG Comput- 
ing, authors acknowledge that such materials, upon acceptance for publication, become 
the exclusive property of ANALOG. If not accepted for publication, the articles and/or pro- 
grams will remain the property of the author. If submissions are to be returned, please sup- 
ply a self-addressed, stamped envelope. All submissions of any kind must be accompanied 
by the author's full address and telephone number. 

Send programs to: 
Editor, ANALOG Computing, P.O. Box 23, Worcester, MA 01603. 



Turn your Atari 
into a Ferrari. 



Introducing the all-new Indus GT™ disk 
drive. The most advanced, most complete, most 
handsome disk drive in the world. 

A flick of its "Power" switch can turn your Atari 
into a Ferrari. 

Looks like a Ferrari. 

The Indus GT is only 2.65" high. But under its 
front-loading front end is slimline engineering 
with a distinctive European-Gran flair. 

Touch its LED-lit CommandPost™ function con- 
trol AccuTouch™ buttons. Marvel at how respon- 
sive it makes every Atari home computer 

Drives like a Rolls. 

Nestled into its soundproofed chassis is the 
quietest and most powerful disk drive power sys- 
tem money can buy. At top speed, it's virtually 
unbearable. Whisper quiet. 

Flat out, the GT will drive your Atari track-to- 
track 0-39 in less than one second. And when 
you shift into SynchroMesh DataTransfer,™ you'll 
increase your Atari's baud rate an incredible 
400%. (Faster than any other Atari system drive.) 

And, included as standard equipment, each 
comes with the exclusive 
GT DrivingSystem™ of 



software programs. World-class word processing 
is a breeze with the GT Estate Word Processor™ 
And your dealer will describe the two additional 
programs that allow GT owners to accelerate their 
computer driving skills. 

Also, the Indus GT is covered with the GT 
PortaCase™ A stylish case that conveniently dou- 
bles as a 80-disk storage file. 

Parks like a Beetle. 

The GT's small, sleek, condensed size makes it 
easy to park. 

So see and test drive the incredible new 
Indus GT at your nearest 
computer dealer soon. 

The drive will be 
well worth it. 



INDUS 




The all-new Indus GT Disk Drive. 

The most advanced, most handsome disk drive in the world. 




For additional information, call 818/882-9600. 

@1983 Indus Systems 9304 Deering Avenue, Chatsworth, CA 91311. The Indus GT is a product of Indus Systems. Atari is a registered trademark of Atari Corp. 



PAGE 26 



ANALOG COMPUTING 



ISSUE 27 



Ask 

Mr. 

Forth 




by Donald Forbes 



The best way to demonstrate FORTH at the begin- 
ning of a new year is to present a program to draw 
calendars. This will be useful. You can add your own 
heading, print it on your printer and then distribute 
the calendar to promote your demonstration. 

More importantly, the program serves as an enlight- 
ening example of how to structure a FORTH program 
to cope with a commonplace but tricky calculation. 
The program is in the public domain, thanks to Jesse 
Jay Wright of Pasadena, California, who contributed 
it to the November 1983 issue of Forth. Dimensions. 

Structuring the calendar. 

The calendar problem is simply this: to match one 
of the seven days of the week to the day of the month 
and year. Since there are only seven days in the week, 
there are only seven yearly calendars of 365 days — 
because New Year's Day falls on one of them. How- 
ever, leap year adds a second set of seven 366-day 
years, for a total of fourteen different yearly calendar 
setups. You can make a so-called perpetual calendar 
with a simple table of years to point you to one of 
the fourteen yearly calendars. This, of course, is a cop- 
out; we will try another way. 

The first question to be answered is whether we've 
got a leap year or what is known as a "common" year. 



The leap year dates to the time of Julius Caesar, when 
all years had 365 days. By then, the civil equinox 
differed from the astronomical by three months, so 
that the winter months were carried back into au- 
tumn, and the autumnal months into summer. Cae- 
sar tied the year to the rotation of the earth around 
the sun, once every 365V4 days, with a leap year ev- 
ery fourth year. 

Actually, the solar year is only 365 days, 5 hours, 
48 minutes and 46 seconds, so that by 1582 the calen- 
dar was again ten days out of synch. Pope Gregory 
then abolished the ten days from October 5th to 14th, 
and eliminated the leap years in three of every four 
century-years. 

The British government waited until the calendar 
was eleven days out of line, then imposed the Grego- 
rian calendar in England and America in 1752. Now 
we have the anomaly that Washington was not born 
on Washington's birthday. On his birthday (1731), the 
calendar read February 11, not February 22. 

Pope Gregory's calendar is good until the year 4000, 
and skipping the leap year will make it good for an- 
other 3,000 years. 

Here is the FORTH code to test for a leap year: 
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: IS_XEAP_YEftR? tyear — flagJ 
OUP DUP 468 MOD 8= 
SNAP 188 HOD 8= NOT OR 

5HAP 4 MOD 8= AND ; 

First we put the year on the stack, then duphcate 
it twice to test for the century leap years. (Inciden- 
tally, you can enter the code on the screen line by 
line, pressing RETURN after the end of each line; 
your Atari will continue to compile the FORTH code 
until the final semicolon.) The swap makes the flag 
second on the stack, and the last line tests for divisi- 
bility by four. We can check the code as follows; 

1983 IS_LEAP_YEAR? . 8 Ok 

1984 IS_LEAP_VEAR? . 1 ok 

1985 IS_JLEAP_VEAR? . 8 Ok 

The second question is: how many days are there 
in the month? My teacher told me to count the long 
and short months on the knuckles of the left hand, 
beginning with January on the index finger, March 
on the middle finger, and back to the index finger 
with August. Others prefer: "Thirty days hath Sep- 
tember, April, June and November. . ." 

On a computer, the solution is to set up a table like 
the one below: 

: CTABLE <BUILD5 8 DO C, LOOP 

DOES> + ce ; 

31 38 31 38 31 31 

30 31 38 31 29 31 8 

31 38 31 38 31 31 
36 31 38 31 28 31 8 

26 CTABLE DAY5-IN_H0NTH 

C Month — days in Month ) 

We can test it easily enough by giving the number 
of any month: 

1 DAY5-IN-M0NTH . 31 Ok 
11 DAY5-IN_M0NTH . 36 Ok 

2 DAY5_IN_mNTH . 28 Ok 

This innocent-looking table is actually an example 
of the most sophisticated feature of FORTH — and a 
monument to the genius of its inventor. Dr. Charles 
H. Moore. FORTH, unlike any other language, lets 
you create your own structures, so that you aren't 
bound by the restrictions imposed by the architects 
of BASIC and Pascal and FORTRAN and the rest, 
but can build the language to suit your own needs. 
In this respect, FORTH stands alone. 

In the words of Chuck Moore: "If you are taking 
a course in computers which is taught in Pascal, you 
mostly don't learn about computers; you learn about 
Pascal. You learn about how a certain class of people 
think programs should be written and algorithms de- 
fined. But you don't learn much about the computer 
underneath the software. Take the same course in 
FORTH. FORTH is more transparent, and you would 
focus more closely on the problem, on the ways of 
solving it, than on the theory of computation. . . 
FORTH lets you get directly to that part of the prob- 
lem instead of getting bound up in compilers and 
subroutines and things which aren't of fundamental 
interest." 

The < BUILDS DOES > construct lets you build 



your own structures. How? You don't lead a blind man 
to the cliff and then walk away. Here is a brief, one- 
paragraph explanation which you can offer your audi- 
ence as a downpayment on the full-page explanation 
to which they are entitled. 

The words < BUILDS and DOES> allow you to 
create new structures which have both a compile-time 
and a run-time behavior. If, for instance, you define 
the word 

: VECTOR <BUILD5 , , D0E5> 26 ; 

then, during compilation, a phrase such as 

41 276 VECTOR HIND 

will place an entry named WIND in the dictionary 
and store (using , , or comma comma) two values af- 
ter the name. (By the way, 2® in fig-FORTH is DUP 
2+ @ SWAP @.) When the program is run, then 
WIND will place the two numbers 41 and 270 on 
the stack. In our case, < BUILDS uses a DO. . . 
LOOP to create the 26-byte table, and DOES> lets 

DAYS IN MONTH retrieve the proper byte. That 

is the story in a tiny nutshell. 

The third question we must answer is: what is the 
day of the year, given the day, month and year? Here 
is where we use both the leap year routine and the 
table of days in each month. You can, if you need 
to, replace 2DUP with OVER OVER and 2DROP with 
DROP DROP, which are actually the fig-FORTH ver- 
sions of two words belonging to the FORTH-79 dou- 
ble number extension word set. 

: DAY-OF-YEAR 

C day. Month, year — day of year} 

IS_LEAP_YEAR? 

IF 13 * 14 ELSE 1 ENDIF 

2DUP = IF 2DR0P 

EL5E DO I DAY5-IN-H0NTH 

* LOOP ENDIF ; 

What the code does is test for a leap year to con- 
vert the offsets in the table, or else start at month 
one. The second IF looks for January and returns the 
day, or else loops to cumulate the days in each of the 
preceding months. We can test the program this way: 

1 1 1983 DAY-OF_YEAR . 1 Ok 
31 12 1984 DAY-OF_YEAR . 366 Ok 
31 12 1985 DAY-OF_YEAR . 365 Ok 

Now we are in a position to answer the question 
we posed in the first place: what is the day of the 
week, given the day, month and year? All we need 
do is cumulate the number of days from, say. New 
Year's Day in 1900 (which was a Monday) and then 
divide by seven to get the day of the week (counting 
up from Sunday as zero). 

: DAY_OF_HEEK 

C day, Month, year — day of %reek ) 
c where sunday is 8) 

DUP >R DAY_OF_YEAR 6 

R> 1968 DO 

I I5_LEAP_YEAR? 

IF 366 * ELSE 365 * ENDIF 

LOOP + 

7 MOD ; 

Here we save the year on the return stack, get the 
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Always the Lowest Prices on the Finest Quality 
at. . . COMPUTER CREATIONS 

I OKIMATE i 

^ 10 COLOR PRINTER 

I *209^^ 



i With Atari Plug 'N' Print Kit!! ' S 

hsmimmmmmimmmwammmummmmumwm»M 





ATARI HARDWARE 

Atari 800XL'" Home Computer (64K RAM) 

Atari 410 Recorder (Special) Call 

Atari 1010" Program Recorder For 

Atari 1020'"40-ColumnColorPrinter/Plotter .... Updated 

Atari 1 025'" 80-Column Printer Prices 

Atari! 027'" Letter Quality Printer On 

**Atari 1 030'" Direct Connect Modem New 

Atari 1 050" Disk Drive Model 

* CX77 Atari Touch Tablet'" Atari 

Atari Light Pen Computers 

•Screen Dump Program FREE!! witri purcriase of CX77 
"ET Upload/Download Program FREE!! 

DISK DRIVES 

Indus GT (Free Sottware) CALL 

Astra 2001 FOR 

ATR-8000 64K UPDATED 

Happy Enhancement for Atari 810 and 1 050 PRICES 
Drives 



SUPER SOI 
PRIC 


=TWARE 
ES 

ational 

CALL 

FOR 

CURRENT 

PRICES 


DISKETTE/CARTRIDGE/ 
CASSETTE FILES 

Flip N' File 10 


3.95 


Flip N' File 1 5 


6 95 


Atari 




16.99 


Electronic Arts 

EPYX 

American Educ 

Infocom 

Syn-Series 

Spinnaker 

OSS 

LJK 


Flip'N' File/The Original . 

Disk Bank 

Colored Library Case 

Disk Bank/5 (holds 50) ... , 

Power Strip (6 oullel) 

Lineguard Spike 


16.95 

3.99 

2.99 

12.99 

16.95 

13.99 


Disk Drive Cleaning Kil ... 
Ring King Wallel 
(holds 1 disks) 


11.99 
4.99 


Others 


Ring King Wallel 
(holds 20 disks) 


7.99 



AUTHORIZED SERVICE CENTER 

ATARI 

STAR MICRONICS (GEMINI) 

Call for prices and services. 



GENERIC DISKS 



^^ 



FANTASTIC 
PRICES!! 



GENERIC DISKS AS LOW AS 99C ea. 

Generic 100% Detect-Free/Guaranteed. 

Includes sleeves, labels, write protect tabs, reinforced hub 
rings, lifetime warranty. (2 boxes minimum) 

SS/SD SS/DD DS/DD 

DISKETTES 2 boxes 12.99 14.99 17.99 

(1 bx. minimum) 3-9 boxes 11.50 13.50 16.50 

10 per box 10+ boxes 9.90 11.99 14.99 



PRINTERS 

GEIVIINI 10X(80 Column) 259.00 

GEMINI 15X(136 Column) 379.00 

DELTA 10(80 Column) 360.00 

RADIX 10(80 Column) 539.00 

RADIX 15 (136 Column) 649.00 

POWERTYPE Daisywheel 339.00 

EPSON RX-BO (80 Column) 279.00 

EPSON RX-SO FT (80 Column) 359.00 

EPSON FX-SO (80 Column) 429.00 

OKIDATA 92P 449.00 

EPSON RX 100 (135 Column) 459.00 

TTX LETTER quality Printer (Includes Tractor Feed) 359.00 

Printer Interface Cables 

IvIPP-lvlicroprint 49.95 

lv1PP-1 150 Parallel Printer Interlace 59.95 

Printer Ribbons 

GEIvllNI Printers (Black/Blue/Red/Purple) 3.00 

EPSON Printers 8.95 

RAM (Memory) BOARDS 

MICROBITS 64K (600XL) Expansion 89.95 

MONITORS 

SAKATA SC 1 00 Color Screen 239.00 

(VIONITOR Cable 4.95 

SANYO 1 2" Green Screen 84.95 

SANYO 1 2" Amber Screen 89.95 

SANYO Color Screen 229.95 

SANYO 9" Green Screen 69.95 

MODEMS 

IvIPP-lOOOC Modem 114.95 

SIGNALMAN Mark XII (VIodem with R-Verter 299.95 

Mark X with R-Verter 299.95 



To order call TOLL FREE 

1-800-824-7506 




ORDER LINE ONLY 



COMPUTER CREATIONS, Inc. 

P.O. Bo 292467 - Dayton, Ohio 45429 

For information call: (513) 294-2002 (Or to order in Ohio) 

Order Lines Open 8:30 a.m. to 8:00 p.m. Mon.-Fri.: 10 a.m. to 4:00 p.m. Sat. (Eastern Slandard Time). Minimum $10 per order, 
(add $2. 50). All prices are subiecl to change without notice. Call loll free number to verify prices and availability of product. Actua 
will be charged on all hardware. Software and accessories add $4.00 shipping and handling in Continental United Stales. Actual 
will be charged outside U.S. to include Canada, Alaska, Hawaii. Puerto Rico. Ohio residents add 6% sales tax. NO CREDITS! 



must have authorization number. 



C.O.D. 

Ifreight 
llreight 
Return 
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current day of the year, add 365 or 366 days for each 
year since 1900, and then take the remainder after 
dividing by seven. Since we are deaUng with signed 
numbers, we can cumulate a maximum of 32,767 days 
or a little more than 89 years from whichever year 
we choose as the starting point in which New Year's 
Day falls on a Monday (such as 1951, 1962 or 1973). 

The code makes clever use of the stack. A stack 
diagram comes in handy now, just to make everything 
clear. 

FORTH code has often been criticized as difficult 
to read. "FORTH programs tend to be dense and hard 
to read," according to Charles F. Taylor in his Master 
Handbook of High-Level Microcomputer Languages. He 
says, "understanding a FORTH program written by 
someone else often requires a great deal of tedious 
effort to track stack effects, and so on. Some would 
call FORTH a 'write only' language." 

The solution is a technique to keep track of the 
stack, such as the one in The Complete Forth by Alan 
Winfield. "1 promised to describe a technique for il- 
lustrating the stack during program execution, and 
it is just such a technique which we would use to clar- 
ify the operation . . .The technique is to list vertically 
each word in the body of the colon definition. Then 
look up each word, in turn, in the FORTH Handy 
Reference, noting that word's stack effect. The author 
has found this stack notation invaluable in develop- 
ing FORTH programs with complex stack manipula- 
tions and, far from being cumbersome, the technique 
soon becomes rapid as familiarity is gained. In par- 
ticular, the experienced FORTH programmer will not 
have to refer often to the Handy Reference, and will 
place words ... in groups of more than one, where the 
stack effect is very clear (or none at all), so that the 
whole diagram is much simplified." 

HORD STACK ACTION 

: DAY_OF_HEEK 31 12 1984 

Cday, Month, year — day of week) 

DUP 31 12 1984 1984 

cadd a copy of year to stack) 
>R 31 12 1984 

Cstore year on return stack) 

DAY-OF-VEAR 366 

Cchange date to day of year) 
e 366 8 

(zero a counter to sum the days) 

R> 366 e 1984 

(recover year froH return stack) 
1988 366 8 1984 1988 

(beginning year for count) 

00 366 8 

(liMit t index on return stack) 

1 366 8 1988 

(push index to stack) 
I5_LEAP_YEAR? 366 8 flag 

(set true flag for leap year) 
IF 366 * 366 total-days 

(add 366 to total-days if true) 
ELSE 365 + 366 total-days 

(add 365 to total-days if false) 
ENDIF LOOP * total-days 

(count days since Jan l, 1988) 
7 HSD ; 

( 31846 / 7 = 1 for a Monday) 

Since we can now pinpoint the days of the week. 



we can print out a calendar for any month in any ap- 
propriate year. 

: CALENDAR ( Month, year—) 
( print calendar for Month ) 
2DUP SNAP 

18 SPACES .."-". CR 
." Sun Hon Tue ited" 
." Thu Fri Sat ■■ CR 
2DUP 1 ROT ROT DAY_OF_HEEK 
DUP 2« 2» SPACES 
ROT ROT 

IS_LEAP_YEAR? IF 13 ♦ ENDIF 
DAYS-IN_HONTH 
1* 1 DO 
I 4 .R 

1+ DUP 7 = IF CR ENDIF 7 HOD 
LOOP 0= N8T IF CR ENDIF CR ; 

Ta test it, we can try: 

12 1984 CALENDAR 

which produces a calendar that looks like this: 

12 - 1984 
Sun Hon Tue Hed Thu Fri Sat 

1 

2 3 4 5 6 7 8 

9 18 11 12 13 14 15 

16 17 18 19 28 21 22 

23 24 25 26 27 28 29 

38 31 

We now have all the inputs to print a calendar for 
a whole year with just a twelve-month loop: 



(continued on next page) 



^^>. EDU-TAX £Oo. 



Don't be caught suprised at tax time. Know 
exactly what your taxes will be all year long. EDU-TAX 
is a menu driven program with extensive on screen 
explanations. EDU-TAX includes these schedules 
and forms: 

Form 1040 

Schedule A — Itemized Deductions 

Schedule B — Interest/Dividends 

Schedule C — Business Income 

Schedule D — Capital Gains/Losses 

Schedule E — Supplemental Income 

Schedule G — Income Averaging 

Schedule W — Marital Deductions 

Form 2106 — Unreimbursed Employee Expense 

Form 21 19 — Sales of Residence 

Form 4684 — Casualties and Theft Losses 

EDU-TAX is currently 50% off the suggested retail 
price of $50.00. EDU-TAX is now only $25.00 plus 
$2.00 for shipping and handling. Direct only. 



^^ 












^^^^^^m 




VISA 




I^^^^^B 



EDU-TAX 

P.O. Box 16785 
San Antonio, TX 78216 



CHECK 

OR 
MONEY 
ORDER 



Texas Residents add 5%. 
Commodore 64-Disk — Atari 48K-Disk 
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CALENDAR-YEAR C year 
13 1 DO DUP I 5HAP 
CALENDAR LOOP DROP ; 



~ J 



And there you have it! You can dress it up any way 
you please. You might want to set up a table of con- 
stants to let you input the name of the month, in- 
stead of the number (JANUARY CONSTANT 1 . . . ). 
Or a table to print the name, rather than the num- 
ber of the month. You might also like to add a mes- 
sage at the end or at the beginning. 

Make it colorful. 

No demonstration, however, can be complete with- 
out an illustration of Atari's lasting claim to fame — 
superb color graphics. 

Two years ago. Herb Kohl and Ted Kahn brought 
out a book called Atari Games and Recreations, an en- 
gaging 338-page tutorial on Atari and BASIC, com- 
plete with comic book cartoons. One feature recreates 
a fable of the George {Animal Farm) Orwell of 2500 
years ago, the Greek slave Aesop, who told of "the 
classic race between the Tortoise and the Hare. The 
old, plodding, deliberate Tortoise is challenged to a 
race by the speedy Hare. The Tortoise is steady, regu- 
lar and sometimes painfully slow. The Hare is fast but 
erratic. It jumps all around, is impatient and, in the 
original Greek fable, is foolish. The Hare runs too 
fast for itself. . ." 

Here is a FORTH version which will execute in any 
fig-FORTH with 1 LOAD 2 LOAD 3 LOAD TOR- 
TOISE, and needs no commentary. As the lawyers 
say, res ipse loquitur— "the thing speaks for itself." D 

SCR ttl 

c tortoise and hare df84l0ie) 

: RNDtt c randoH nuNber ) 

53770 CO SHAP /MOD DROP ; 
: J C index of outer loop ) 

R> R> R> R RIt 

>R >R >R Rtt e ; 
: CLEAR-SCREEN 125 EMIT ; 
: DELAY DO LOOP ; 
: INITIAL 7 GR. 1 COLOR 

CLEAR-SCREEN ." A race!! " 

." Tortoise versus the Hare'!" 

CR 3000 DELAY 

." On your Marks, get set," 

." GO 

CR 3068 DELAY ; ;S 



SCR St2 

f tortoise and hare df 841016) 

: COMMENTS f checks coluwi tt ) 

DUP 10 = IF CR 

." Place your bets, folks !!!" 

CR ENDIF 

DUP 40 = IF CR 
." Mant to change your bets???" 

CR ENDIF 

DUP 65 = IF CR 
." It's doMi to the Wire...!!!" 

CR ENDIF 

DUP 75 = IF CR 
." And the winner is.--???" 



CR ENDIF 77 = IF CR 
." Guess Who...!!!" 
CR ENDIF ; 



;s 



SCR lt3 

c tortoise and hare df84l8l6) 

: FINALE CLEAR-SCREEN 



' Once again, " 

■ ORDER triUNphs over CHAOS!" 

OUIT ; 

TORTOISE INITIAL 

79 DO 75 DO 

f tortoise ) 

J I PLOT 

J I 4 + DRANTO 

J C col tt on Stack ) COMMENTS 

C hare ) 

79 RNDtt 80 + 79 RNDtt PLOT 

79 RNDtt 80 * 79 RNDtt DRAHTO 

5 -i-LOOP LOOP FINALE ; ;S 



Send letters to: 

Ask Mn Forth 

P.O. Box 23 
Worcester, MA 01603 




Talk to 
ANALOG Computing 

We're happy to announce that three members 
of our staff can now be regularly found on Com- 
puServe. If you're a CompuServe member, you 
can contact Tom Hudson, Charles Bachand or 
Art Leyenberger by leaving a message on the 
Atari SIG, which can be accessed by typing GO 
PCS -13 2 at any menu page. 

The Atari SIG has logged over 100,000 calls 
— with over 60,000 messages posted! They have 
a staff of highly competent SYSOPs, headed up 
by Ron Luks, who are more than happy to help 
you. Their program database contains well over 
a megabyte (that's one million bytes, folks!) of 
Atari programs that can be downloaded into 
your computer. 

So, if you need to get in touch with ANA- 
LOG Computing, you can now do it through 
CompuServe. Our user numbers are: 

Tom Hudson 70775,424 

Charles Bachand 73765,646 

Art Leyenberger 71266,46 
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Extending 

Ibur 

DOS Directory 



24K Disk 



by Roland S. Chan 



The Umitations of the length of the Atari DOS 
directory name and its naming convention pose diffi- 
culties for my little son. Not being able to find a suit- 
able alternative, I decided to develop this Extended 
Directory program. 

What it does. 

The main functions are: (1) expanding the DOS 
directory name and extension from eleven to thirty 
characters; (2) allowing the combination of alphabet- 
ic, numeric, blank and special characters; (3) display- 
ing up to twenty-five program or file names and one 
option in menu format; (4) loading and running BA- 
SIC programs and DOS, using one keystroke; and 
(5) automated handling of any DOS directory entry 
changes. The bonus: it does all this in a user-friendly 
way. 

Getting started. 

Key and transfer the Extended Directory to a disk 
containing BASIC software. Initial program execu- 
tion, then display program menu in the old DOS 
directory format, with an option to create Extended 
Directory names. 

Creating. 
The Extended Directory prompts you to enter the 
desired name for each file in the DOS directory. Af- 
ter the entire renaming process is completed, an Ex- 
tended Directory file (EXTDIRNM.DAT) is created. 



Finally. . . 

A maximum of thirteen program or file names is 
displayed per page. The last menu entry allows modi- 
fication to the Extended Directory names. A mes- 
sage is displayed to indicate page overflow (if any) 
and how to page forward or backward. 

Subsequent running of the Extended Directory will 
initiate comparison of program or file names in the 
Extended Directory file with the DOS directory. Pro- 
grams or files on the DOS directory, but not on the 
Extended Directory file, initiate prompting for the 
creation of the missing Extended Directory name. 
Programs or files on the Extended Directory, but not 
on the DOS directory, are purged from the Extended 
Directory file. D 



10 HEN KmCMMmCKMMKKlClCmCKMKKKKKKMmCmC 

20 REN * EXTENDED DIRECTORY « 

30 REN * BY ROLAND S. CHAN NARCH 84« 

40 REN * HIS5IS5AUGA , ONTARIO * 

Se REN KWKMlCMMMmCltmcmtMllKIClCIClCltKICKMlCM 

60 REN 

70 REN 

80 GOTO 2970 

82 REN 

84 REN 

86 REN t^^i/M^^i^iig^Lg^i/aiaiataiaiMiaiatMiaiMiaiaiiiMiii 

90 REN SiiHa'MarB 

100 REN 

110 REN 



BRANCH TO MAINLINE 



SUBROUTINES STARTS HERE 



SCREEN DISPLAY ROUTINE 
fHDGl = .DISPLAY HEADING 



120 IF H DG THEN HDG= NO T SET: GOTO 150 
130 REN 



PRINTS HEADING 
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EXTENDED DIRECTORY 



iPOKE 752. Nl 



(DTL) SETS THE DETAIL LINES 



(DTL)=1. DISPLAY MODIFY MESSAGE 



MODIFY EXTENDED 



158 REH 

160 ON DTL GOTO 170,246,268,280,300,35 

0,378, 33 0.410.510 

170 REH 

S 

180 POSITION N 5.W5;? "I 

mM*vhvm:sssM" 

190 POSITION N3,N7:? "DOS Directory" 
280 POSITION N2,N8:? EKTNAME$ (BEGIN, BE 
GIN+ORECSIZE-Nl) 

210 POSITION N3,Nll:? "Extended Direct 
ory" 

220 POSITION N4,N12:? EXTNAHES (BEGINH^O 

RECSIZE , BEGIN+RECLENGTH-Nl) 

230 POSITION N2,N16:? "ENTER QES TO CH 

ANGE DIR ECTORY NAME . ■" ; ;GOTO 660 

240RE^.,_..__. 

250Pa5ITI0N N5,N4:? '_ 

fraiSBn:Eirs":GOTo 660 

260 R EM 

270 POSITION N5,N5:? "CREATING EKTENDE 
D DATA BASE": POSITION N10,N8:? "PLEASE 

WAIT. . . .":GOTO 660 
280 REM 
298 ? :^ 
TO 660 

300 REM 

310 POSITION N12,N14:? "| 
■":GOTO 660 

350 REM 

360 POSITION N4,N10:? 
ILENAMES ;" PLEASE MAI T 
370 REM 
380 ? :? 
":GOTO 660 
390 REM 



;a{DTL)=2, DISPLAY CREATE EKTENDE 



Enter Extended D 



> Nane 
(DTL)=3, DISPLAY CREATING DATA 



CDTL)=4, DISPLAY CHOICE 
"^ Please Enter Choice... 



IGO 



CDTL)=5. DISPLAY BAD LOAD FILE_ 
I LOADING ERROR 



CDTL)=6, DISPLAY MESSAGE LOAD 



Loading 

. ":GOTO 660 



;f 



(DTL)=7, DISPLAY ERROR MESSAGE 
■II INVALID ...PLEASE TRY AGAIN 



(DTL)=8, DISPLAY CREATE EXTENDE 



D DIR ECTORY . 

iMUCiT T^ih-wigifcmiJ FntPr Extended D 
irectorw Nawiei 

CDTL)=9, DISPLAY TITLE PAGE 



410 REM _ 

420 ? "m": GRAPHICS Nl->^16 

430 POSITION N1,N4:? ttN6; "EXTENDED DIH 

ECTORV" 

440 HAIT=100:G0SUB DELAY 

450 GRAPHICS N2+16 

460 POSITION N1,N2:? ttN6; "EXTENDED DIR 

ECTORY" 

478 IMIT=150:G0SUB DELAY 

488 POSITION N2,N4:? ttNO; "analog compu 

ting" 

490 POSITION N4,N10:DL=PEEKC560)+PEEK( 

56H*25646* 9;P0KE PL. 6 

1";G0T0 660 



Please Wait 
(DTL)=ie, DISPLAY MENU 
DBFND=e DOS DIRECTORY 

=1 EXTENDED DIRECTORY 



588 ? UN O ; " 
510 REM 
520 REM 

538 REM ,. 

540 POSITION N12,N3:? F5ECTS:? 

550 FOR LOOP=MENUSTART TO MENUEND 

560 PTR= CLOOPXRECLENGTH) -RECLENGTH+Nl 

570 IF DBFND THEN BEGIN=PTR40RECSIZE :F 

IN=BEGIN4ERECSIZE-N1 

580 IF NOT DBFND THEN BEGIN=PTRHHN2:FI 

N=BEGIN+N11 

590 CHAR=L00P+N64 : CHAR$=CHR$ (CHAR) 

688 ? CHAR5;".";EXTNAME$(PTR,PTR+N1);E 

XTNAME$ (BEGIN, FIN) ; EXTNAMES (PTR1^N14 , PT 

R+N16J 

610 NEXT LOOP 

620 IF MENUEN D <NOFI LES THEN POSITION N 

8,N28:? "HIT SBfiSaS FOR NEXT PAGE" 

630 IF ME NUE ND O NOFIL E S THEN 668 

648 CHAR=L00P+64:CHAR$=CHR$(CHAR) :? CH 

ARS; 

642IJF DBFND THEN ? ". 

644 IF NOT DBFND THEN ? ". Mrl;f;mJ!l 



TENDED DIRECTORY 



658 IF N0 FILJES> N14 THEN POSITION N6,N2 

o:? "HIT amnn for last page" 

660 RETURN 
678 REM 

680 REM 

690 FOR TIMER=NO TO fcWIT 



MODIFY DIRECTO 



- DELAY - 
DELAY ROUTINE 



788 NEXT TIMER 

718 RETURN 

728 REM 

736 REM 

748 EXCPTR=N3:FILENAIC$="D 



EKECNAME- 
BUILD EXECUTABLE NAME 



758 BEGIN= (KSTROKE«RECLENGTH) -RECLENGT 

H+N3 

760 FOR LOOP=BEGIN TO BEGIN+NIO 

770 IF EXTNAME$(LOOP,LOOP)=BLANK$ THEN 

810 
780 IF L00POBEGIN+N8 THEN 800 
790 FILENAMES (EXCPTR , EXCPTR) =" . " : EXCPT 
R^EXCPTRH^Nl 

800 FILENAMES (EXCPTR , EXCPTR} =EXTNAME5 ( 
LOOP, LOOP) :EXCPTR=EXCPTR4N1 
810 NEXT LOOP 
820 RETURIL 
1030 REM 
lAdfl RFH 



- RDDIR - 
READS DISK DIRECTORY 



- LDDBA5E - 

Breads extended directory data 

base. match dos directory and store. ■ 



1080 CLOSE ttDSKCHNL:OPEN f}DSKCHNL,RD0N 

LY,N8,EXTFILES 

1898 TRAP 1188:DBFND=N1 

1100 FOR RDL00P=N1 TO MAXFILE 

1110 INPUT ttDSKCHNL:EXTDATA$ 

1120 FOR MTCHLOOP=Ni TO NOFILES 

1122 IF MTHFLG(MTCHLOOP] THEN 1160 

1125 BEGIN= (MTCHLOOP«RECLENGTH) -RECLEN 

GTH+N3 

1130 IF EXTDATAS(N3,0RECSIZE)<>EXTNAME 

S (BEGIN, BEGIN+0RECSIZE-N3) THEN 1160 

1140 EXTNAMES (BEGIN+0RECSIZE-N2, BEGINS 

RECLEN6TH-N3) =EXTDATA$ (ORECSIZEHtNl , REC 

LENGTH) 

1150 MATCH=MATCH+N1 : HTHFLG (MTCHLOOP) =S 

ET : MTCHL00P=N0FILES+N1 

1160 NEXT MTCHLOOP 

1170 NEXT RDLOOP 

1180 RETURN 

1190 REM 

1200 REM 

1210 TRAP 1330: CLOSE ttDSKCHNL:OPEN ttDS 

KCHNL,DIRONLV,NO,"D:«.«" 

1220 N0FILES=N8 

1238 FOR RDL00P=N1 TO 65 

1240 INPUT ttDSKCHNL,0RECNAME5 

1258 IF 0RECNAME$(N5,N16)="FREE SECT8R 

S" THEN FSECT$=ORECNAME$:GOTO 1328 

1268 IF NOFILES=MAXFILE THEN 1328 

1278 N0FILES=N0FILES+N1 

1280 MTHFLG(NOFILES)= NOT SET 

1290 BEGIN= (RDLOOPKRECLENGTH) -RECLENGT 

H+Nl 

1300 EXTNAMES (BEGIN , BEGIN+ORECSIZE-Nl) 

=ORECNAME$ 

1310 IF 0RECNAME$(N3.N13)<>"EXTDIRNMDA 

T" THEN 1320 

1315 EXTNAie$(BEGIN+0RECSIZE,BEGIN4REC 

LENGTH-N1)="EXTENDED DIRECTORY FILE":M 

THFLG(N0FILES)=SET:MATCH=N1 

1328 NEXT RDLOOP 

1330 RETURN 

1340 REM 

1350 REM 

1360 CLOSE ttKBCHNL: CLOSE ttSCRNCHNL 
1370 OPEN ttKBCHNL, RDONLY, NO, "K:" 
1388 OPEN ttSCRNCHNL, leiTONLY, NO, "S:' 
1398 RETU RN 
1400 REM 
1410 REH 

1420 REM 

1430 FOR KEYL00P=N1 TO NOSTROKE 

1440 GET ttKBCHNL, KSTROKE 

1445 IF KSTROKEzCRTN OR NOT ECHO THEN 

1488 
1458 PUT ttSCRNCHNL, KSTROKE 
1460 KSTR0KE=KSTR0KE-N64 
1470 NEXT KEYLOOP 
1480 RETURN 
1910 REM 

1915 REH _^___ 

1920 N0STR0KE=:N1:ECH0= NOT SET:DTL=N2: 

GOSUB KEVINIT:G0SUB SCRNDSP 

1930 FOR L00P=N1 TO NOFILES 

1940 IF HTHFLG (LOOP) =SET THEN 2060 



- KEYINIT ■ 
INITIALIZE KEYBOARD / SCREEN 



- KEYECHO - 
INPUT FROM KEYBOARD AND ECHO 
TO THE SCREEN 



"CREXTDIR- 
!CREATE EXTENDED DIRECTORY 
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CR0B65E- 
WRITE THE EXTENDED DIRECTORY 



1956 HTHFLG tLOOP) =5ET : BEGIN= f LOOP«RECL 

ENGTH) -RECLENGTH+Nl 

1966 P05ITI6N N2,N8:? EXTNAME$f BEGIN, B 

EGIN^OREC5IZE-Nl5 

1976 NMNAMES=BLANKS:PTR=N1 

1986 P05ITI6M II8.W12;? 



1996 REH PeKE 762^64 :P6KE 694, N6 

2686 TRAP 1976:P65ITI6N N3,N12:? "\XES 
":605UB KEYECHe:P65ITI6IIM3,N12:? KSTR 
eKE:P05ITI0M M3,m2:? "CECHl" 

2665 IF K5TR0KE=CRTH THEN 2656 

2816 IF KSTReKE=126 THEN NNNAME$ CPTR-N 
l)="t":PTR=PTR-Nl:P0SITI8N N8,N12:? NH 
NAHE$;"|":G6T0 2886 
2626 IF K5TReKE<32 eR K5TR6KE>122 THEN 

1978 
2836 NHNAME$ (PTR, PTR) =CHR$ CK5TR6KE} 
2646 IF LENfNHNAHE5)>EREC5IZE THEN 197 
6 

2845 P05ITI0N N8,N12:? NHNAME$ :PTR=PTR 
4^Nl:G0T6 2868 

2856 IF LENCNMNAI«ES)=N1 AND NNNAMES CNl 
,N1)=BLANK$ THEN 1978 

2655 EXTNAHE$CBEGIN+6REC5IZE,BEGIN«REC 
LENGTH-Nl) =NMNAHEI : MTHFLG CLOOP) =5ET 

2666 NEXT L66P 
2876 RETURN 
2686 REH 
2696 REH 
2116 DTL=N3:G6SUB 5CRNDSP 

2126 CL8SE ttDSKCHNL :6PEN ttD5KCHNL,HRT6 

NLV,li6,EXTFILE$ 

2138 BEGIN=N1 STRAP 48868 

2146 FOR L00P=N1 TO NOFILES 

2156 ? ttDSKCHNL;EXTNANE$ f BEGIN, BEGIN+R 

ECLENGTH-NIJ 

2166 BEGIN=BEGIN+RECLENGTH 

2176 NEXT L60P 

2175 CLOSE ttDSKCHNL 

2188 RETURN 

2566 REH 

2576 REH 

2580 GOSUB KEYINIT : NeSTROKE=Nl :ECH0=-5E 

T:NOCHG=SET 

2590 FOR LOOP^Nl TO N0FILE5 

2686 HTHFLG CLeOPJ =SET : BEGIN= CLOOP»RECL 

ENGTH) -RECLENGTH+Nl 

2646 DTL=Nl:G05UB 5CRND5P : GOSUB KEYECH 



2658 IF KSTROKEOY THEN 2786 

2666 FOR PTR=BEGIN+ORECSIZE TO BEGIN+R 

ECLENGTH-Nl 

2676 EXTNAHEStPTR,PTRJ=BLANKS 

2686 NEXT PTR 

2696 HTHFLG CLOOPJ= NOT SET:NOCHG= HOT 

5ET 

2700 NEXT LOOP 

2710 RETURN 

2976 REH 
2986 REH 



-MODIFY- 

REN6ME DIRECTORY 



MAINLINE 5TART5 HERE 



2998 REH .-.■.-.■.■.■.■.■.■.■.■■.■■.■.■.■.■..»..j 

3868 N6r8 : Nl=l : N2=2 : N3=3 : N4=4 : N5=5 : N6= 
6 : N7=7 : N8=8 : N9=9 : N10=10 : Nll=ll : N12=12 : 
N13=13 : N14=14 : N16=:16 : N28=28 
3816 D5KCHNL=N1 : KBCHNL=N2 : 5CRNCHNL=N3 : 
RD0NLV=N4 : DIR0NLY=N6 : HRT0NLY=N8 : CRTN=1 
55:Y=25:N64=64:N188=18e ^ .. 

3628 0RECSIZE=17 : HAXFILE=25 : 5ET=N1 : HAX 

3636~DIh' ORECNAHE$ CORECSIZE) , FSECTS COR 

EC5IZE) 

3848 REH i.-ina;i»iii»i. i^=i;w:iw;»-iqq!i*>i« ^ 

3856 RDDIR=1198 : LDDBA5E=1636 : KEYINIT=1 

348 : KEYECH0=1486 : 0ELAV=676 : H0DIFY=2566 

3668 5CRND5P=96:CREXTDIR=1918:CRDBA5E= 

2686 : FHFnNAHE-726 

3878 REH lilr*i:iM:*> l«:»J!Tia 

3688 HDR^ SET ; DTL-N9 ; GOSUB SCRNP5P 

3120 REH >i:i>»f!Tir4iMaaiin;r;if=iiiaa^;ri 

3130 EREC5IZE=30 : RECLENGTH=0REC5IZE+ER 

ECSIZE : BUFSIZE=RECLENGTH»HAXFILE 

3146 DIH EXTMAHESCBUFSIZEJ.BLAHKSJHIJ, 

HTHFLG CHAXFILEJ , CHAR5 CNIJ , FILENAr«S CNl 

43,EXTFILEStN14J 

3156 BLANKS^" " :EXTFILES="D : EXTDIRNH.D 

AT":IWTCH=N6 



LOClD FILENAMES FROM DIRECTORY 



LOAD EXTENDED DIRECTORY DATA 



CALL CREATE DIRECTORY ROUTINE 



WRITE EXTENDED DIRECTORY FILE 



DISPLAY DIRECTORY MENU 



3166 EXTNAHE$=BLANK$ : EXTNAHE$ CBUFSIZE) 

=BLANK$ : E XTNAMES CH2> =EXTNAHES 

3176 REH 

3186 GOSU B RDblR 

3200 REH 

3216 DIH 0LDNAHE5C0RECSIZE},NHNAIC$CER 

ECSIZE) , EXTDATAS CRECLENGTH) 

3226 TRAP 3376:N0CHG= NOT SET: GOSUB LD 

DBASE 

3236 IF MATCH=NOFILES THEN 3378 

3235 CLOSE ttDSKCHNL :XIO 36, ttDSKCHNL , NS 

,NO,EXTFILES 

3336 REH ~~~ 

3335 IF NOCHG THEN 3378 

3346 GOSU B CREXTDIR ;DBFNP-N1 

3350 REH 

3366 GOSU B CRDBASE 

3376 REH 

3396 MENUSTART=N1:HENUEND=HAXPAGE 

3466 IF NOFILES<HENUEND THEN HENUEND=N 

OFILES 

3410 GOSUB KEYINIT :DTL=N16:G0SUB SCRND 

SP : HDG=SET : DTL=N4 : GOSUB SCRNDSP : NOSTRO 

KE=N1:ECH0=SET: GOSUB KEYECHO 

3415 IF KSTROKEOCRTN THEN 3438 

3426 IF HENUENDONOFILES THEN HENUSTAR 

T=HENUSTARTHhHENUEND : NENUEND=HENUEND+HA 

XPAGE:G0T0 3486 

3425 IF HENUEND=NOFILES THEN 3376 

3436 HAIT=36: GOSUB DELAY 

3435 IF DBFND AND KSTR0KE=N0FILES+N1 T 
HEN GOSUB HODIFY:GOTO 3336 

3437 IF NOT DBFND AND KSTROKE=NOFILES 
+N1 THEN 3348 

3440 IF KSTROKE<HENUSTART OR KSTROKE>H 

ENUEND THEN HDG=SET :DTL=N7 : GOSUB SCRND 

SP : MAIT=N 188; GOSUB DELAY: GOTO 3418 

3466 REH |TlTM^aaif|jrfiiiai^ha?mra 

3476 GOSUB EXECNAHE 

3486 TRAP 3526 :DTL=N6: GOSUB SCRNDSP 

3490 IF FILENAHESCN1,N9)="D:D0S.SY5" T 

HEN IMIT=N166: GOSUB DELAY: POKE 1791, Nl 

:POKE 1791,N0:D0S 

3500 RUN FILENAME^ 

3510 END 

3526 REH lanwiTiTaaaii;! 

3538 HDG=SET:DTL=N5: GOSUB SCRNDSP :HAIT 
=N106: GOSUB DELAY 
3540 GOTO 3376 

3556 TRAP 3596 : DTL=N6 : GOSUB SCRNDSP 
3566 IF FILENAHESCN1,H9)="D:D0S.SYS" T 
HEN HAIT=N186: GOSUB DELAY: POKE 1791, HI 
:POKE 1791,Ne:D0S 
3578 RUN FILENAHE$ 

3586 END , 

3596 REH l*tNi»Wil!lMi4:i:Hi;i 

3688 HDG=SET:DTL=N5: GOSUB SCRNDSP :HAIT 

=N186: GOSUB DELAY 

3610 GOTO 3386 



CHECKSUM DATA. 

(see page 8) 

16 DATA 532,495,813,591,548,261,928,69 

2,451,22,463,882,862,126,39,7683 

138 DATA 6,688,626,192,332,954,715,558 

, 817 , 862 , 581 , 646 , 142 , 856 , 268 , 8163 

288 DATA 761,336,487,399,994,559,721,5 

39 , 663 ,131,449,291, 256 , 425 , 487 , 7432 

468 DATA 257,449,56,455,258,261,163,11 

6,237,724,413,306,783,663,941,6614 

616 DATA 223,368,383,574,572,697,735,6 

89,728,264,255,132,596,34,393,6563 

748 DATA 711,973,467,791,128,5,161,227 

,661,694,369,218,871,43,165,6236 

1126 DATA 685,751,119,534,167,542,645, 

527 , 796 , 183, 46 , 841 , 165 , 385 , 863 , 7163 

1256 DATA 67,396,214,957,986,479,99,31 

4,528,791,799,448,798,27,516,7333 

1390 DATA 797,746,479,438,518,461,921, 

739 , 532 , 461 , 799 , 561 , 435 , 116 , 718 , 8653 
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P.O. BOX 3354. CHERRY HILL, N.J. 08034 

Toll FREE (800) 992-3300 

For Information Call (609) 596-1944 
Call'us for reliable sen/ice. experience and affordable prices! 




Atari 600 XL •Call 

Atari 800 XL ....'Call 

850 Interface '139 

1010 Program Recorder '59 

1020 40column Color Printer '69 

1025 80-column Printer '199 

1027 Letter Quality Printer ... '249 
1030 Direct Connect Modem.. "79 

1050 Disk Drive '229 

Touch Tablet "60 

Light Pen <49 



Special ol the Month 
Atari 1050 Disk Drive 

Limited soon 
Quantities ^£.ij 



SOFTWARE 

GAMES 

Donkey Kong Jr *36 

Eastern Front '15 

Football '15 

Joust '35 

Pole Position '35 

Ms. PacMan '30 

Tennis »T 5 

Pengo '19 

PROGRAMMING SERIES 

Assembler Editor '30 

Microsoft Basic II '45 

Atari Logo '65 

Atari Writer >35 



Special ol the Month 

Atari Logo 

*65 



HOME MANAGEMENT 

Synfile...; »45 

Syncalc »45 

Syntrend «45 

Electronic Arli 
9 CALL » ■ 

Archon 'Call 

Mule For 

Pinball Construction Lowest 

7 Cities of Gold Prices 

Financial Cook Book & Best 

Music Construction Prices 

INFOCOM 

Zork 1, 2, or 3 '27 

Enchanter '33 

Soccerer »33 

Infidel '33 

Sea Stalker '33 



Holiday Special 

GEMINI 
10X 



244 




ssms 



15X '349 

Powertype Daisy Wheel '325 



PRINTERS 

Epson 'Call. 

Okidata 'Call 



Special ol the Month 
Atari 1030 Modem 



*79.00 



MODEMS 

Hayes Smart 300 '195 

Modem Cable to 850 '29.95 



Holiday Special 
Hayes Smart 300 

M95.00 



DISK DRIVES 



Holiday Special 
Indus G.T. 

^295. GO 



FLOPPY DISK 

Elephant SS/SD (10) '15.50 [ 

Elephant SS/DD (10) '17.50 | 

Verbatim SS/DD (10) ....... '21.95 

MONITORS 

Amdek Color 1+ '249 



Holiday Special 
Commodore 1702 

*245.00 



[ 



canvas with vinyl 



Features heavy duty 
interior, waterproof. 

Atari 800 XL '6.99 

810 Disk Drive '6.99 

Epson Printers '7.99 

Okidata 92 '7.99 



Special ol the Month 

SUBLOGIC 
Flight Simulator 

*34.95 



Ultima III ... «34.95 

Ordering & Payment Policy 

Prices reflect a cash discount. For C.O.D., Visa, and Mastercard add 3%. For| 

immediate delivery with certified check or wired funds. N.J. resident add 6%. 

Prices subject 10 change. 



Shipping 

For shipping and handling add 3% (S3 
minimum). Larger shipments require 
additional charges. 



Catalog 

We sell a large selection of hardware 
and software. Send SI for catalog, 
refundable with order. 



1940 DATA 678,949,565,558,890,303,823, 
37,184,787,752,186,702,217,212,8449 
2860 DATA 978,788,779,629,759,227,58,6 
89,579,576,982,817,792,457,873,9983 
2580 DATA 308,706,937,559,904,18,907,9 
1,578,993,803,471,509,473,382,8639 
3010 DATA 467,668,282,64,976,484,882,6 
78,680,308,787,370,304,872,412,8234 
3200 DATA 258,875,946,281,556,851,754, 
47,949,551,313,845,151,654,374,8405 
3420 DATA 27,463,322,877,712,55,611,84 
6,777,88,598,273,138,792,742,7321 
3550 DATA 791,88,605,280,145,792,744,3 
445 
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MOVING? 

DON'T MISS A SINGLE ISSUE. 

Let us know your new address right away. At- 
tach an old mailing label in the space provided 
and print your new address where indicated. 

QUESTION ABOUT 
YOUR SUBSCRIPTION? 

Check the appropriate boxes below: 

D New subscription. Please allow 4-8 
weeks for your first copy to be mailed. 
D Renewal subscription. Please include 
a current address label to insure pronnpt 
and proper extension. D 1-year $28.00. 
Ttiis rate limited to the U.S.A. and its 
possessions. D Payment enclosed or 
□ Bill me. 
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TAKE ANY2 FOR 4.95 EACH 

when you join the Columbia Software Ciub and agree to buy 4 selections at regular Club prices in the next 2 years 




0040022 

Addition/Subtraction 
0041012 

Uultiplrcatlon/Dlvision 

Both available for 
C-64. Atari H.C. 
and Apple: disk. 



8035022 

Zaxxon 

Adam, C-64; cart: 
Atari H.C.-.disk 
and cart: Apple: disk. 



Super Software 
Savings for 

•Apple'' 

•Atari *' Computers 

• Commodore 64'" 

•Adam™ 

Salectlone (vallable on cartridge or disk 
^^■^" - as Indicated 




8172052 

Master Type 

C-64, Atari H.C, 
disk and cart: 
Apple: disk. 



8230052 

Run For Ttie Money 
C-64, Atari H,C. 
and Apple: disk. 




8122062 

Pitfall II 

Adam, Atari H,C.: 
cart, C-64: 
disk and cart. 



8100022 

Choplifter 

C-64, Atari H.C: 
disk and cart: 
Apple: disk. 



0044082 

Murder By 
Ttie Dozen 

C-64, Apple: disk 




8090042 

River Raid 

C-64: disk and cart: 
Atari H.C, Adam: cart. 




8105072 

Zork M 

Atari H.C. and 
Apple: disk. 



8104082 

Zork I 

Atari H.C and 
Apple: disk. 



8150012 

Summer Games 

C-64, Atari H.C. 
and Apple: disk. 



8149052 

WarGames 

Adam: cart. 



8102002 


8215042 


8103092 


8229082 


Temple of Apshai 


Beacti-Head 


Pitstop 


Pitstop II 


C-64, Atari H.C. 


C-64, Atari H.C: 


C-64, Atari H.C: 


C-64, Atari H.C. 


and Apple: disk. 


disk. 


cart. 


and Apple: disk 



Here's a great selection of sensational soft- 
ware for every member of the family— at 
super savings! You've seen these software se- 
lections in stores anywhere from $19.95 and 
t/p-yet, now, you can have any two for the fan- 
tastic low price of only $4.95 each! That's our 
way of introducing you to the Columbia Software 
Club— a brand-new service that delivers the 
best software for Atari® Home Computers, 
Apple,*' Commodore 64,"* and Adam'" systems 
How the Club works: about every 6 weeks (up 
to 9 times a year) you will receive the Columbia 
Software Club Magazine. In it you'll find out 
about an exciting variety of the newest software 
available: simple shoot-em-up adventures, 
more challenging strategy software, learning 
software to help the entire family acquire new 
skills-how to type, master basic math, budget 
your finances, and much more. 

In addition, each issue of the magazine 
announces the "Pick-Hit Selection"— an out- 
standing software selection specifically for your 
system . If you want only this Selection, you need 
do nothing-it will be sent to you automatically If 
you want one of the alternate selections— or 
nothing at all-just tell us so on the response 



card always provided, and mail it by the date 
indicated. You'll always have ten days to make 
your decision. If you ever receive a selection 
without having had ten days to decide, you may 
return it at our expense. 

The selections you order will be mailed and 
billed at regular Club prices-which currently be- 
gin at $24.95 and are less than list prices! (A 
shipping/handling charge and applicable sales 
tax is added.) Remember, you don't have to buy 
a selection every time you hear from us-your 
only membership obligation is to purchase four 
selections, at regular Club prices, in the coming 
two years. And you may cancel membership at 
any time after doing so. If you decide to con- 
tinue, you'll be eligible for our generous money- 
saving bonus plan. 

10-Day Free Trial: we'll send you complete de- 
tails of the Club's operation with your introduc- 
tory selections. If you are not satisfied for any 
reason whatsoever, just return everything within 
10 days for a full refund and you will have no 
further obligation. So act now! 

All applications subject to review, and the Columbia 
Software Club reserves the rigtit to reject any ap- 
plication or cancel any memi>erstiip. 



ATARI* is a registerBd trademark of Atari Inc.-APPLE* is a registered trademark of Apple Computer, Inc.-ADAM'" is a trademark of 
Coleco Industries. lnc.-C0M(^0D0RE 64" is a trademark of Commodore Electronics. Lld.-BRUCE LEE" is a trademark of Linda 
Lee-ZAXXON '" is a trademark of Sega Enterprises, Inc. 
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COLUMBIA SOFTWARE CLUB, Dept 2RF 102 

3000 North 35th Street, Terre Haute, Indiana 4781 1 

Please accept my application under the terms outlined in this advertise- 
ment-and send me the 2 selections indicated below, for which I am 
enclosing check or money order for $9.90 (that's $4.95 for each selection). 
I agree to buy 4 more selections at regular Club prices in the next 2 years. 



\Afrlte1n numbers 
of the 2 selectfons 
you want 

Send my selecttons for the following system (check one system only): 
D ATARI® HOME COMPUTERS 2 DAPPLE* 3 
n COMMODORE 64 '" 4 D ADAM '- 5 (cartridges only) 
If you have selected Atari Home Computer or Commodore 64 software- 
be sure to check the type of format you prefer (check one format only): 

n CARTRIDGE A □ DISK H 



Name 

(please print) 

Address 



First Name 



Last Name 
Apt 



City/State 

Do you have a telephone? (check one) D Yes D No 
Parent's Signature 
if under 18- 



_Zip_ 



Offer not available: APO, FPO. Alaska, Canada, Hawaii, Puerto Rico 
WANT THIS CHARGED TO YOUR CREDIT CARD? Fill in information 
below, we'll charge the $9.90 and future shipments to your credit card-and 
credit your account with any returns, 
n American Express D VISA D MasterCard- 



Interbank No. 



Credit Card No. in full 
Signature 



Expiration date 
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Screenmaker 




16K Disk 



by Vern L. Mastel 



run 



This is a screen formatting program that wil 
on any Atari computer with at least 16K and a disk 
drive. Screen formatting can be one of the most time- 
consuming and memory-intensive parts of developing 
a program. Print and position statements are the gen- 
erally accepted method of handling screen displays. 

Screenmaker is an alternative to this convention- 
al approach. You create the display, using the charac- 
ter set of the Atari, and then save it to a disk file. 
This file is essentially a "snapshot" of the screen and 
can be recalled at any time. The process of storage 
or retrieval takes less than two seconds, and the BA- 
SIC code which handles I/O takes very little space. 

How. 

In direct mode, the Atari will print on the screen 
any and all characters entered from the keyboard. You 
can create all sorts of pictures using graphics charac- 
ters. If the RETURN key is pressed, however, the com- 
puter tries to interpret what has been entered and 
delivers a SYNTAX ERROR to the user. 

Screenmaker avoids this problem by intercepting 
all of the characters from the keyboard, examining 
them and then printing to the screen. 

The RETURN and ESCAPE keys are used as com- 
mand keys. RETURN functions as the SAVE screen 
command; and ESC, the LOAD screen command. 
All other characters are passed on, to be printed to 
the screen. You retain full cursor control and don't 
have to give up any printable characters. 



Screenmaker makes use of the built-in capability 
of the Atari to move a block of data to or from a disk 
file without the help of BASIC. The CIO (central 
in/out) does the work; all it needs to know are the 
specifics of the move — how many bytes to move, the 
source and destination. Table 1 contains all of the lo- 
cations used by the OS for doing direct I/O via the 
CIO. 

Table 1. 



IOCB# 


ICCOM 


ICBLL 


ICBLH 


ICBAL 


ICBAH 


1 


850 


856 


857 


852 


853 


2 


866 


872 


873 


868 


869 


3 


882 


888 


889 


884 


885 


4 


898 


904 


905 


900 


901 


5 


914 


920 


921 


922 


923 


6 


P 


riority given to 


device S: 


7 


Priority given 


to LPRINT and LOAD 



The locations are as follows: 

lCOB# — The I/O control block number. 

ICCOM — This location contains the com- 
mand for what is to be done. A 7 specifies read 
bytes (for example, POKE 850,7), while an 11 
specifies write bytes. 

ICBLL — Low byte of the total number of 
bytes to be moved. 

ICBLH — High byte of the number of bytes 
to be moved. 
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ICBAL — Low byte of the memory location 
where the data is to be moved from (as in the 
case of a disk save), or where the data is to be 
put (disk load). 

ICBAH — High byte of the target address. 

Once these locations have been POKEd with the 
correct values, the entire process is set into motion 
with a USR call to the OS. Note that only the top 
twenty lines of the text screen are saved by Screen- 
maker. This was intentional; it leaves the bottom four 
lines for command and user input within a program. 

Creations of Screenmaker can be loaded from BA- 
SIC very easily. The complete listing of necessary code 
is in Listing 2. Just be sure that you match the con- 
trol block chosen with the value contained in the 
USR call. 

Using Screenmaker. 

To use the program, all you need to do is RUN it. 
The screen will go blank except for the cursor, which 
you control. You can move it anywhere on the screen 
— all of the cursor controls still work. So do the IN- 
SERT and DELETE line keys, the INSERT and the 
BACKSPACE keys and the CLEAR SCREEN com- 
mand. 

You can use the graphics characters to create pic- 



tures, insert text where desired and, at any time, save 
the screen to disk. 

Only two commands are needed. RETURN is used 
to save a screen to disk. You must specify the filename 
in the form D(] or 2):FILENAME. To LOAD any 
screen, press the ESC key and enter the filename in 
the same form. Each screen takes up only seven sec- 
tors of disk space, so the chance of filling up a disk 
with screens is rather remote. 

Program description. 

Lines 10-50 do all of the initialization. 

Lines 60-90 handle the characters coming 
from the keyboard. RETURN and ESC are used 
for command. 

Lines 100-110 prompt for filename to save or 
load. 

Lines 300-370 set up the parameters for the 
direct call to the CIO. Here IOCB#l is used. 

Lines 380-390 clear off the bottom of the 
screen. 

Lines 400-440 handle errors and keep the pro- 
gram on track. 

I'll leave you with a thought: imagine what could 
be done with Screenmaker and a custom character 
set. Think of the effort that could be saved in set- 
ting up displays. D 



Listing 1. 

le DIM FS<16),MLSt7J 

28 FOR X=l TO 7 ".READ fl :MLS CX)=CHR$ tAJ : 

NEXT H 

30 DATA 104,104,104,170,76,86,228 

40 PRINT CHRSC125} 

50 TRAP 40e:0PEN tt2,4, 0, "K : " 

60 GET tt2,KC:IF KC=155 THEM DIR=11:I0= 

8: GOTO 110 

78 IF KC=27 THEN 0IR=7 :I0=4 :GOTO 100 

98 PRINT CHRSCKC); :GOTO 60 

100 POSITION 2,21:? "'INPUT FILE NAME T 

LOAD~>"; :INPUT FS:G0T0 300 

110 POSITION 2,21:? "INPUT FILE NAME T 

SAVE"; : INPUT FS 

308 OPEN ttl,IO,0,FS 

310 5CREEN=:PEEKC88}+256«PEEK<89) 

320 STARTHB=INTt5CREEN/2563 

330 STARTLB=SCREEN-256*STARTHB 

340 POKE 852,STARTLB:P0KE 853,STARTHB 

350 POKE 856,31:P0KE 857,3 

360 POKE 850,DIR:A=USR(ADR(ML$],16) 

378 CLOSE ttl 

380 POSITION 2,21:? " 

■ I 

390 GOTO 60 

488 POSITION 2,21:? " 

■ I 

420 IF PEEKfl95)=138 THEN POSITION 2,2 

l:? "DRIVE NOT THERE":FOR X=l TO 400:N 

EXT X:GOTO 370 

430 IF PEEKC195J=170 THEN POSITION 2,2 

l:? "FILE NOT FOUND": FOR X=l TO 480 :NE 

XT X 

440 GOTO 370 



CHECKSUM DATA. 

(.see page 8) 

18 DATA 276,541,674,482,565,41,884,476 

,828,419,682,985,826,258,321,8898 

358 DATA 242,469,660,75,521,53,312,193 

,726,3251 



BASIC Loader. 



1888 OPEN ttl,4,0,F$ 

1810 SCREEN=PEEK C88J +256»PEEK 189} 

1820 STARTHB=INTtSCREEN/256J 

1830 5TARTLB=SCREEN-STARTHB»256 

1840 POKE 852, STARTLB: POKE 853,STARTHB 

1850 POKE 856, 31: POKE 857,3 

1860 POKE 850,7:A=USRCADRC"hhh!2LV(!]"),l 

63 

1065 REM 3 small H's, inverse «, LV, i 

nverse SMall D 

1870 CLOSE ttl 



CHECKSUM DATA. 

(see page 8) 

1800 DATA 347,231,980,482,49,287,835,7 
05,860,4776 



YOU HAVE ALREADY MADE 
YOUR FIRST MISTAKE! 

You thought that cassette recorder 
would handle your storage needs. 

WRONG 

DON'T MAKE ANOTHER ONE! 

You think you need a disk drive to 
solve your storage problems. 

WRONG 

YOU NEED 2 DISK DRIVES! 

Any serious application practically 
demands at least 2 drives. 

WORD PROCESSING 

SPREADSHEET 

DATA BASE MANAGEMENT 

MAILING LIST SOFTWARE 
All of these are made more powerful 
and, at the same time, easier to use if 
you have two disk drives. 
So now it will cost twice as much, 
^isht? WRONG 

You need an Astra single or double 
density dual disk drive. Two drives 
in one 




AND NOW ASTRA HAS THREE 
MODELS FOR YOUR ATARI 

ASTRA 1620 

Our original single or double density dual disc drive. 
Two drives, for the price of one. 
(360 KBYTES) 

ASTRA 2001 

All of the features 

of the 1620, but 

with improved 

circuitry, rotary 

doors, and direct 

drive motors. 
(360 KBYTES) 




9f 



ASTRA "BIG D 

Double sided, single or double density, 
dual disk drive. 
(720 KBYTES) 

ALL DRIVES FURNISHED WITH 
SMARTDOS OR MYDOS * 

*DOUBLE SIDED DRIVES 

FOR NEAREST DEALER OR DISTRIBUTOR 
CALL (714) 549-2141 



>i^ 



flSTRfl SVST6MS 



2500 South Fairview 



• unit L • Santa Ana, Ca. 92704 
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F-15 STRIKE EAGLE 
MICROPROSE SOFTWARE 
10616 Beaver Dam Road 
Hunt Valley, MD 21030 
48K Disk $39.95 



by Patrick J. Kelley 



Before I begin this review in earnest, I feel that I 
must clarify something. I have a somewhat different 
outlook when it comes to relaxation, especially in 
computer games. For a game to be relaxing to me, 
it must attain a certain level of, well, excitement. . . 
and satisfaction. . .of the vicarious kind. So, by my 
definition only, F-15 Strike Eagle is a very relaxing 
game. Indeed, it's just the thing to unwind with, af- 
ter a hard day of stress and strife. But now, back to 
the world of normal, even-tempered people. F-15 
Strike Eagle writes the book when it comes to put- 
ting the player in a stress- inducing situation, as you'll 
soon see. 

HUDs, SAMs and ECMs. 

For those of you not familiar with the F-15, or the 
NASA-like environs of its cockpit, the main display 
screen is sufficiently mind-boggling. Put simply, you 
are in the pilot's seat, not some computer generated 
humanoid. If you get into a jam, you have only your- 
self to kick later. 

Arranged before you are the controls that will blast 
you into action. First — and most important — is your 
HUD (acronym for Heads Up Display). This is the 
brain of your fighter and your electronic nursemaid. 
HUD tells you relative speed, the amount of ammo 
remaining in your 20mm gatling cannon, your pitch 
lines, your altitude {really handy), and your naviga- 
tional heading (handier still). The HUD also alerts 
you to the presence of incoming hostile aircraft, the 
status of your rack of short- or long-range air-to-air 
missiles, the number of bombs remaining to you, and 
the operational status of your ECM (Electronic Coun- 
ter Measures) pod. 

The ECM is used to confuse enemy radar, foul 
ground- and air-launched missile guidance systems, 
and generally save your bacon when the going gets 
rough. Your joystick acts as both control stick and 
weapons activator, with throttle and ECM controls 
relegated to the keyboard. 

All these displays are concise and do their jobs well. 
Once you know where the controls are, and what they 
do, you're ready for the real fun to begin. 

Scramble Flight Baker! 

The ultimate objective of F-15 Strike Eagle is to 
fly into enemy territory, conduct airstrikes against 
primary and secondary targets, and engage hostile air- 
craft in action. 

Besides the aforementioned airborne adversaries, 
you must also avoid the fusillade of ground-launched 



SAMs (Surface-to-Air Missiles) that streak upward 
from batteries to punch your ticket. As the combat 
level increases, so does the sKooting accuracy of the 
SAM gunners. ("Rolling Thunder" was never like this!) 
Utilizing the downward-looking radar displayed be- 
neath your HUD, you must locate targets, penetrate 
hostile airspace, complete your bombing run, and re- 
turn to your carrier or airstrip alive and (hopefully) 
intact. Sounds simple, doesn't it? 

Appearances are deceiving. Skill and piloting ability 
are a real must here, and the adrenal glands get quite 
a workout as you approach your target. With one eye 
on the map and the other on the radar, you go for- 
ward to victory — or down to defeat. I could go on 
and on about this game, so I'll try to keep this short 
and sweet. 




F-15 Strike Eagle. 

F-15 Strike Eagle is a real winner, easily surpass- 
ing another great MicroProse offering, MiG Alley 
Ace. The feeling of flight is so real in this game that 
you'll probably find yourself pitching to and fro in your 
seat at home, as you put the aircraft through its paces. 
Although some may find this game overly complex, 
I feel that it has just the right blend of detail and ac- 
tion to keep me coming back for more. 

Yankee air pirates. 

Whatever your tastes in adventure, F-15 Strike 
Eagle delivers. The choice of combat mission simu- 
lations is yours. Whether you're streaking above the 
parched sands of Syria or rocketing in at Mach 2 over 
Haiphong, you're in for your money's worth. 

Just remember this — Speed: Mach 2.3; Altitude: 
64,000 feet; drop down to 3500 to pop your stick and 
roll on back to the Nimitz for a few cool ones. Keep 
your throttle up, your guns hot and your Sidewinders 
ready; you'll be stenciling a MiG 23 on your plane, 
come morning. Need I say more? 

Don't wait. Run down to your local software mer- 
chant and buy a copy of F-15 Strike Eagle today. To- 
morrow may be too late! D 



WHEN MTTERIES INCLUDED SET OUT JO 
DESIGN THE VERY BEST WORD PROCESSOR 
FOR AIARf COMPUTERS... 
^THEY FOUND THEY ALREADY HAD FT. 
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Few word processors have allowed Atari users to tap the full resources of their computer until Atari Paper Clip . . . 

Atari Paper Clip is an extremely powerful, fully featured word processor that will allow your Atari 
to operate to the limits of its potential with an ease of operation and speed you 've never thought possible. 

PAPER CLIP FOR ATARI®AND COMMODORE^OWNERS 
WHO WANT THE VERY BEST IN WORD PROCESSING. 



T86 Queen St. West 
Toronto, Ontario, 
M5V TZ1 Canada 



<? 




INCLUDED 



i) 



"The Energized Software Company!' 



17875 Sky Park North, 
Suite P, Irvine, California 
USA 92714 



(4161596-1405 FOR A FULL COLOR BROCHURE SEND A STAMPED SELF-ADDRESSED #10 ENVELOPE TO BATTERIES INCLUDED. 

@ © !9S4 Batteries Included. All rights reserved. A tari and Commodore are registered trademarks respectively of Atari, Inc. and Commodore Business Macliines, Inc. 



Simulator n 









WMMim 
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jourself in the pilot's seat of a Piper 181 Cherolcee Archerfifr an awe-inspiring flight over realistic scene, 
'from New Yorlt to Los Angeles. High speed color-filled 3D graphics will give you a beautiful panoramic vie 
as you practice takeoffs, landings, and aerobatics. Complete documentation wilt get you airborne quickly 
even if you've never flown before. When you think you're ready, you can play the World War I Ace aerial battle 
game. Flight Simulator II features include ■ animated color 3D graphics ■ day, dusk, and night flying mode 
■ over 80 airports in four scenery areas: New York, Chicago, Los Angeles, Seattle, with additional scenery 
areas available ■ user-variable weather, from clear blue skies to grey cloudy conditions ■ complete flight 
instrumentation ■ VOR, ILS, ADF, and DIME radio equipped ■ navigation facilities and course plotting ■ World 
War I Ace aerial battle game ■ complete information manual and flight handbook. 



See your dealer 

or write or call for more information. For direct orders enclose $49.95 plus $2.00 
for shipping and specify UPS or first class mail delivery. American Express, 
Diner's Club, MasterCard, and Visa accepted. 

Order Line: 800 / 637-4983 
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713 Edgebrook Drive 
Champaign IL 61820 

(217) 359-8482 Telex: 206995 
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24K Cassette or 32K Disk 



by Joel Gluck 



Way back in the golden days, when issues of ANA- 
LOG Computing were still numbering in the teens, 
I wrote a program called Bounce, k appeared in the 
Our Game column in issue 15. At that time, I was 
fiddling with a fun new language for the Atari — 
Action! by Optimized Systems Software. I was think- 
ing that a version of Bounce in Action! would be 
a worthwhile project. 

Not long after I had that thought I discovered, to 
my amusement, that someone had beaten me to it. 
The friendly folks at ANALOG Computing told me 
one day that a certain David Plotkin had submitted 
a little ditty called Bounce in Action!, which later 
appeared in issue 20. 

However, David's idea of a better Bounce program 
was different from mine. His improvements consist- 
ed of adding GTIA color and, of course, speed (with 
Action!) to the original design. I enjoyed playing with 
David's program, and 1 was pleased that someone else 
was as enthusiastic about Bounce as I was. . .1 sim- 
ply had another idea that had to be tried. 

To me, the next natural step for Bounce is to add 

more discs — having multiple moving objects at your 

command makes Bounce about a million times more 

"^ in than the original. Of course, Action! is the only 

h-level language for the Atari that is fast enough 

1 a multiple-object Bounce effectively. 

t there was Bounce, then Bounce in Action!, 

nw I give you More Fun with Bounce (MFB 

t). 



Other improvements. 

I had other upgrading in mind, too. Tjps on the 
list was user-friendliness. MFB lets you move the cur- 
sor around freely without upsetting the walls or the 
discs already laid down. Drawing or erasing occurs 
only when your joystick trigger is held down. T) switch 
between the two functions (drawing and erasing), sim- 
ply hit the SPACE BAR. 

Another user-friendly feature is the amount of con- 
trol over cursor speed available. For a slow cursor (to 
maintain fine drawing control), hit a lower digit key 
like 3 or 4. For high-speed drawing, hit 7 or 8. Cur- 
sor speed 9 is for maniacs only. 

Laying down the spheres is simplicity itself. Just hit 
the B key. A disc appears at the cursor's position, while 
the cursor itself moves to the right (so you can keep 
laying down more). Note that — when drawing, eras- 
ing, moving or placing balls — the cursor performs au- 
tomatic wraparound should it go off the edge of the 
screen. 

Even Bounce's screen-clearing feature has been im- 
proved upon. In MFB, when you hit ESC, instead 
of the whole screen clearing, only the discs disappear. 
This lets you keep your old wall patterns. If you'd like 
to clear everything, just hit CTRL-ESC. To remove 
individual discs, draw or erase over them with the 
cursor. 



Let 



er rip 



To start things bouncing, hit START. (If you forgot 
to lay discs down, the program automatically returns 
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you to the drawing mode.) Immediately, the playing 
field fills with red goop (to be eaten away by the 
bouncing balls), and the number of objects bouncing 
appears in the text window. 




Again, as in drawing mode, you have a number of 
options. For starters, you have complete control over 
disc speed. Simply hit digit keys through 9, 9 be- 
ing the fastest. Keep in mind, however, that the few- 
er objects you have on screen, the faster they will go 
(this is a natural by-product of the limited processing 
speed of your Atari computer). One or two discs on 
the screen at speed 9 move so fast that they are more 
of a blur than an object. 

You may notice as the balls are bouncing that only 
one of them is actually making bouncing sounds; the 
others are silent. To change the "sound focus," hit the 
S key. This allows you to make different balls audi- 
ble, one at a time. If you keep hitting S, you'll finally 
return sound focus to the original disc. This effect 
is easier to see if you have only a few objects on the 
screen. 

An improvement I've always wanted to add to 
Bounce is to give the user some direct control over 
the bouncing sphere. In MFB, this feature exists and 
is called "nudging." When you hit the N key, the ball 
that the sound focus is on gets nudged. The effect 
of this is distinct, yet simple— it causes the ball to 
react as if a vertical wall were momentarily placed 
directly ahead of it. Essentially, the ball bounces off 
of a ghost wall. 

Nudging is fun (as is holding down the N key for 
repeated nudgings) and, also, useful if there is a red 
area on the screen where no ball has been. You can 
direct one over to that area by nudging it. Note: it 
is best to practice nudging with only a few objects 
and at a slow speed. Also note: you can nudge differ- 
ent spheres by changing the sound focus. 

When you want to change your wall configuration 
or the number of bouncing objects, hit SELECT to 
get back to the drawing mode. To start with a fresh 
screen, just hit CTRL-ESC. D 



Action! listing. 



;More Fun Hith BOUNCE 

;by Joel Gluck 

; for ANALOG COHPUTING 

BYTE ARRAY XX 1256) ,yy C256) , 
Xdt256),ydC256) 

BYTE xc, yc, hidden, CMOde, riHE=28, 
RAND0H=5377e,C0N50L=53279, 
CURSC=7e8 , CH=764 , NEHC0L=710 , 
diSt= [01 , audbal 1= EOT 

CARD nuM=[e],curspeed=[i506], 
baiispeed=[9eei 

CARD ARRAY 1 inept C48} 



PROC grSinitC] 
CARD scrn=88 

BYTE line,BALLC0L=:7e9,HALLC0L=718 

GraphicsCS) 

FOR iine=e to 47 do 

linept(line}=scrn+2e«l ine 

OD 

BALLCOL=SeC 
IIALLC0L=594 
RETURN 



PROC plOtSCBYTE X,y,C0l3 

BYTE POINTER pixel 

BYTE ARRAY COlfil=: CO 85 170 2551, 
Hask= [63 207 243 2521, 
Hask2= 1192 48 12 3J 

pixel = lineptcyj+fx R5H 2) 
Pixel-^ = Pixel-^ & HaskCx & 3) 
y. ccoifiiccoi) 
& Hask2(x g, 3ii 
RETURN 



BYTE FUNC 10Cate5CBYTE X,y) 

BYTE POINTER pixel 

BYTE ARRAY Mask= [192 48 12 31 



pixel = lineptfy}+(x R5H 2} 

RETURNCCpixelA i MasktX & 3)) R5H 



CC(X & 3) XOR 3) LSH 1)J 



PROC hlineCBYTE y,c} 
BYTE i 

FOR i = TO 79 DO 

plot5Ci,y,c) 
OD 
RETURN 



PROC VlineCBYTE X,C} 
BYTE i 

FOR i = TO 47 DO 

plots (X,i,C) 
OD 
RETURN 



PROC pauzfCARD pj 
CARD i 

FOR i=l TO p DO 

OD 

RETURN 



PROC fieCBYTE X,yj 
BYTE g,a,b 

g=LocateCx,yJ 
IF g=32 THEN 

RETURN 
FI 
g==+128 
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NEHC0L=1S 
DO 

coiorre 

PIOtCx,b) 
b==-l 
color=g 
Plottx,b3 
IF b=2 THEM 

EXIT 
FI 

50UndCe,b,8,8) 
pauzC7eO+x«50) 
OD 

a=x 

DO 

color=e 

Piotca,b) 

a==+i 

color=g 

Plotta,bJ 

IF a=19 THEM 
EXIT 

Fl 

5oundtO,a,8,S) 

pauz(7eei^x«50} 
OD 

color=8 
PlotCa,b) 
sndRsto 

RETURN 



DO 

color=h 

Piotca.bJ 

h=LocateCa+l,b-lJ 

a==+i 

b"-l 

colDr=g 

PlotCa,b) 

IF a=18 OR b=l THEN 

EMIT 
FI 

5ound(0,a-x,8, Cb R5H D) 
pauzcooo) 

OD 

color=0 

Plotca,b) 

SndRsto 

RETURN 



PROC foot) 
BYTE V 

FOR V=e TO 15 DO 

sound fe,25S, 10, 15-V) 
soundci,e,8,8-cv R5H D) 
pauzcsoo) 

OD 

sndRstCJ 

RETURN 



PROC COlburstCBYTE x,y) 
BYTE g,c,a 

g=LocateCx,!;l 
IF g=32 THEN 

RETURN 
FI 

g=g+128 

NEHC0L=(Randtl6) L5H 4) X 10 
color=g 
a=x-l 
IF a>13 THEN 

a=8 
FI 

PlotCx,a} 
DrawToCx,yJ 
FOR C=e TO 15 DO 

50Und(e,0,4,15-C) 

pauzt4oe) 

OD 
color=8 

piot(x,e) 
DrawroCx,yJ 
sndRsto 
RETURN 

PROC dropkiCkCBYTE x,y} 
BYTE g,h,a,b 

g=LocateCx,u> 
IF g=32 THEM 

RETURN 
FI 

g==*128 
NEHC0L=152 
b=S 
DO 

color=0 

PlotCx,bJ 

b==+l 

color=g 

PlotCx.bJ 

IF b=23 THEN 
EXIT 

FI 

Sound CO, b+lO+CX LSH 11,18,8} 

sound tl,b+28+tX LSH 13,10, 8) 

pauzt480) 
OD 

SndRsto 

NEHC0L=159 
a=X 



PROC introo 

BYTE X 

Graphics fl7) 

CURSC=$08 

POSitionfO.lO) 

PrintD(6,"H0RE FUN WITH") 

POSitionC0,12} 

PrintDC6,"8 OUNCE !"] 

Position(e,i4) 

PrintDC6,"BY JOEL GLUCK"! 

pauzC65800) 

pauzC65800) 

pauzcesooo) 

FOR X=8 TO 12 DO 

#16C12-X,18> 
OD 
FOR X=e TO 12 DO 

colburstcx,l2) 
OD 
FOR X=8 TO 12 DO 

dropkick C12-X, 14) 
OD 

CURSC=S48 
Position(14,l) 
Pr i ntD C6 , "ANALOG") 
fOOO 

Position 111, 3) 
Pr i ntD C6 , "COMPUTING") 
fOOO 

Position C12,S) 
Pr intD C6 , "FEBRUARY") 
fOOO 

Position C16, 7) 
PrintDC6,"1985") 
fooo 

pauz (65080) 
pauz (65800) 
pauz (65000) 
RETURN 



PROC 
BYTE 



drawdoc O 
CURS=752 



CURS=1 
PutEO 

Print ("U se 
PrintE("a]E] 



Joystick and ") 
IBRI to draw/erase.") 
Print ("H it a for balls, ") 
PrintE("raEEr for brush speed.") 
Print ("[S3lilCS„bal is; ") 
ppintE(" rtrai - lMB clrs screen.") 
print ("Press WSW to Bounce'") 
RETURN 
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PROC ciearscrnC) 
BYTE a,b,g 

FOR b=l TO 19 DO 
FOR a=l TO 78 DO 
g=locate5Ca,bl 

IF (g=2 OR CH>28) AND g>l THEN 
plOt5Ca,b,6} 
50Und(e,b,6,4) 
IF CH=28 THEN 

pauztseo) 

FI 
FI 

g=locate5 ta, 33-bJ 
IF Cg=2 OR CH>28) AND g>l THEN 

plOt5Ca,39-b,0} 

Sound to, b, 6, 4} 

IF CH=28 THEN 
pauzcseo) 

FI 
FI 
OD 

5ound(e,e,e,o) 

OD 

IF CH>28 OR hidden=2 THEN 

hidden=0 
FI 
RETURN 



PROC HovecursorCBYTE bflag) 
BYTE g,5TIK=632,TRIG=644,VOl 
BYTE ARRAY V= [2 2202111 
00111121 
INT cxd,cyd 



2 
Oil] 



IF 5TIK<15 OR bflag=l THEN 
CXd=VCf5TIK-5J LSH 1)-1 
cyd=vf CC5TIK-5} LSH 13 Y. lJ-1 
IF bflag=l THEN 

CXd=2 
FI 

g=hidden 
IF TRIG THEN 

VDl=4 
ELSE 

voi=ie 
g=cMode*3 

FI 

SoundCO, Cxc+ycJ«CMOde, 
8+CCHOde LSH 1) , 
uoi-CcHOde LSH 1}} 
plot5fxc,gc,g) 
xc==*cxd 
yc==*cyd 
IF XC<1 THEN 

XC = 78 
FI 
IF XC>78 THEN 

xc=l 
FI 
IF yc<l THEN 

yc=38 
FI 
IF yc>38 THEN 

ycul 
FI 

hidden=locate5Cxc,yc) 
Plot5Cxc,yc,l) 
FI 

RETURN 



PROC audlayballCJ 
BYTE i,j,k 

FOR j=e TO 2 DO 

FOR i3j«50 TO j»50+20 DO 
Sound to , i , 10 , 15- j«6) 
pauzdOO) 
OD 
OD 

Sound €0,0,0,0) 
RETURN 



BYTE FUNC nUHberCJ 



BYTE n,V 

V=CH 

0penC2,"K:",4,lJ 

n=GetDC2J 

Close (2) 

CH=M 

IF n>47 AND n<58 THEN 

RETURN f57-n} 
ELSE 

RETURN f 99) 
FI 



PROC audCMOdeC) 
BYTE n 

FOR n=l TO 5 DO 
IF CMOde THEM 
soundco,iee-n«ie,ie,4) 

ELSE 

sound ci , i50-n«i8 ,10,4) 
SoundCO, 5-n, 8, 6) 
FI 

pauz(20oe) 

sndRstC) 

pauzcieeo) 

OD 
RETURN 



PROC cursor C) 
BYTE n 

IF CH0255 THEN 
IF CH=33 THEN 
CHOde==X0R 1 
audcHodeO 
ELSEIF CH=28 OR CH=156 THEN 

CiearscrnC) 
ELSEIF CH=21 THEN 
hidden=2 
plot5Cxc,yc,2) 
HovecursorCl) 
audlayball C) 
ELSE 

n=nuHberC) 
IF n<99 THEN 

curspeed=n«500 
FI 
FI 

CH=255 
FI 

MovecursorCO) 
RETURN 



PROC bouncedocC) 
CARD n 

PutEC) 

n=nuM 

IF n=l THEN 

PrintEC'l ball is bouncing.") 

ELSE 

PrintCCn) 

PrintEC" balls are bouncing.") 
FI 

PrintEC"Hit digits OHS for speed.") 
Print C"H_changes sound focus, ") 
PrintEC^ nud ges ba ll.") 
Print C"Press Mawaai to Draw again.") 
RETURN 



PROC processCBYTE a,b) 
BYTE g 

g=locate5Ca,b) 
IF g=2 THEN 

IF nUM<280 THEN 

xxCnuH}=a 

yyCnuM)=b 

nuM==+l 

ELSE 

Plot5Ca,b,0) 

FI 
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EL5EIF 9=0 THEN 

Pl0t5ta,b,l) 
FI 
RETURN 



FI 

OD 
RETURN 



PROC ballinitO 
BYTE a,b 

CUR5C=$44 
nUH=:e 

FOR b=l TO 19 DO 
FOR a=l TO 78 DO 

process ca,b) 
process ta,39-b> 
OD 
OD 

FOR a=e TO nuM 00 
xdCa)=Rand(2) L5H 1 
ydCa}=RandC2) L5H 1 
OD 
RETURN 



PROC HOVeballCBYTE It) 

BYTE g,pa,pb 

g= locates Cxx (n) +xd f n) -1 , yy CnJ +yd tn) -IJ 
IF g<2 THEN 

plots Cxx cn) ,yy tn) ,8) 
XX (n) =xx Cn) -i-xd Cn) -1 
yy (n) =yy tn) +yd tn) -1 
plotstxxtn) ,yy tn) ,2) 
IF n=audball THEN 

dist==+l 
FI 

RETURN 
ELSE 

pb=locate5txxtn] ,yy tn}+ydfn)-l) 
pa= 1 oc ateS txx tn) *%A tn) -1 , yy tn) ) 
IF n=audball THEN 
IF dist THEN 

Sound to, 178- tt38-dist) LSH 2), 

18,8) 
Sound tl, ft38-dist) LSH 2), 
18,8) 
FI 

dist=8 
TIME=e 
FI 

IF pa>l THEN 
xdtn)=2-xdtn) 
IF pb>l THEN 
ydtn)=2-ydtn) 
RETURN 
ELSE 

plotstxxtn) ,yy tn) ,8) 
yy tn) =yy tn) +yd tn) -1 
plotstxxtn) ,yy tn) ,2) 
RETURN 
FI 
ELSEIF pb>l THEN 
ydtn)=2-ydtn) 
plotstxxtn) ,yy tn) ,8) 
XX tn) =xx tn) +xd tn) -1 
plots txx tn) , yy tn) , 2) 
RETURN 
ELSEIF Randt2) THEN 

xdtn)=2-xdtn) 
ELSE 

ydtn)=2-ydtn) 
RETURN 
FI 
FI 
RETURN 



PROC cleanup t) 
BYTE a,b 

FOR b=l TO 19 DO 
FOR a=l TO 78 DO 

IF locate5ta,b)=l THEN 

plOt5ta,b,8} 
FI 

IF locate5ta,39-b)=l THEN 
plotSta,39-b,e) 



PROC bounce t) 
CARD i 
BYTE n 

ballinitf) 
bouncedoc C) 
audbali=e 
dist=0 
IF nUH THEN 
DO 

FOR i=e TO nuM-1 DO 
Moveball f x) 
IF CH02SS THEN 
IF CH=62 THEN 
audball==+l 
IF audball=nUM THEN 

audball=8 
FI 

dist=8 
ELSEIF CH=35 THEN 

xdtaudball)=2-xdtaudball) 
ELSE 

n=nuMbert) 
IF n<99 THEN 

ballspeed=n«nKl88 

FI 
FI 

CH=2S5 
FI 
IF C8NS0L=S THEN 

EKIT 
FI 
OD 
pau2tballspeed) 

IF TIME THEN 

sndRstt) 

FI 

UNTIL CONSOL=S 
OD 

SndRstt) 
FI 

cleanup t) 
RETURN 



PROC NFHBt) 

introt) 

grSinitt) 

hlinete,3) 

hlinet39,3) 

vlinet8,3) 

vlinet79,3) 

DO 

drawdoc t) 

XC=39 

yc=19 

hadden=locate5txc,yc) 

CMOde=l 

plots txc,yc,l) 

cursor t) 
CURSC=TIHE 
pauztcurspeed) 
Sound te, 8, 8, 8) 
pauztcurspeed) 
UNTIL C0NS0L=6 

OD 

plotstxcyc, hidden) 

CH=2SS 

bounce f) 
OD 
RETURN 
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English 

Error 
Messages 

in BASIC 



16K Disk 



by Stephen Prokopchuk 



One of the few frustrating things about program- 
ming in Atari BASIC is that errors are given as num- 
bers. This means that every time an unfamiliar error 
number appears, you'll need to check the Reference 
Manual to determine the meaning. 

The following program resolves this dilemma by 
printing the English equivalent on the screen every 
time an error occurs. The error messages are even 
changeable. You could, for example, change OUT OF 
DATA to YOU GOOFED'. To use it, however, requires 
a disk drive. 

How it works. 

Listing 1, written in BASIC, will create an AUTO- 
RUN.SYS file on the disk currently inserted in the 
drive. It is important that the disk to which this file 
is written contains DOS 2.0. When you boot up with 
that disk, the error message program will automati- 
cally load into the bottom of memory. 

The program changes the editor device to point to 
itself, so that whenever something has to be printed 
on the screen, it goes to this routine first. If memory 
location 175 ($B9 hex) doesn't equal zero, then the 
printer knows that BASIC has found an error. It prints 
the English equivalent on the screen. 



Using the program. 

Listing 1 is written in BASIC and is the one most 
users will type in. Listing 2 is written in assembly lan- 
guage and is presented for more advanced users. 

When using the error message program, it is im- 
portant not to enter the disk utilities package by typ- 
ing DOS. Doing so will cause a fatal lockup. Also, 
take note that the list of errors is at the end of both 
programs. Any of the error messages may be freely 
changed to anything you want. D 



Listing 1. 
BASIC listing. 

10 REM ««« ENGLISH ERROR ME55AGE5 *** 

29 DATA 8, 1,2, 3, 4, 5, 6, 7, 8, 9, 0,8, 8, 0,e, 

8,0,10,11,12,13,14,15 

38 DIM DAT$C91) ,HE}<C22} :F0R X=8 TO 22; 

READ N:HEXCX)=N:NEKT K:LINE=998:REST0R 

E 1880: TRAP 118:? "CHECKING DATA" 

40 LINE=LINE+18:' "LINE :"; LINE! READ DA 

T«:IF LENCDATS}<>98 THEN 158 

58 DATLIN=PEEKC183}+PEEKC184}«25e:IF D 

ATLIII<>LIHE THEN ? "LINE ";LINE;" MI5S 

68 FeR X=l TO 89 5TEP 2 :D1=:ASC(DAT5 CX) 

J -48 : D2=A5C CDATS tX*lJ J -48 : BYTE=HEX CDIJ 

«16+HEXCD2J 

78 IF PA5S=2 THEN PUT ttl, BYTE: NEXT X:R 

EAD CHKSUM:GOTO 40 
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88 TOTftL=TOTftL*BYTE:IF T0TAL>999 THEM 

T0TAL=T0TAL-1088 

98 NEKT X:READ CHKSUH:IF T8TAL=CHK5UH 

THEN 48 

188 GOTO 158 

118 IF PEEK (1953 <>e THEN 158 

128 IF PASS THEN CLOSE ttl:END 

138 ? "INSERT DISK WITH DOS, PRESS RET 

URN"; .-INPUT DAT$:OPEN ttl,8,8,"D : AUTORU 

N.sys" 

148 ? :? "HRITING FILE" :PASS=2 :LINE=59 

8 -.RESTORE 1888: TRAP 110: GOTO 48 

158 ? "BAD DATA: LINE "; LINE: END 

1888 DATA FFFF88288324A9ee8DF42eAD2183 

85CBAD228385CCA88BBlCB99e72e88ieF8AD6D 

281869ei8DBe28AD6E286988,845 

1818 DATA 8DB720A5eC8D6528A58D8D6628A9 

848DE782A9248DE882A961858CA92e858DA975 

8DeD288D4683A9288D6E2e8D, 525 

1828 DATA 4783A9678D2183A92e8D2283e828 

34284CFFFF88888e8e8e8e888e8e8888e84C34 

28488DF52e8A489848A5B9F8, 899 

1838 DATA 29ADF528C941F822C99BF88FADF4 

2eC982F817ADF428D88B4CB82eA9888DF4284C 

B8286868AA68A8816eA9828D, 337 

1848 DATA F42e68ASe8AA684CFFFFA5B9eAA8 

Be8DB9F62085CDB9F72885CE4CD52eB9222185 

CDB9232185CEA8FFC89848B1 , 689 

1858 DATA CD297F2eBS2068A8BlCD18FeA92e 

28B52eA981SDF4284CA428888e8888e8887A21 

8D219821AA21BB21C621D321 , 934 

1868 DATA DE21E721F5218722152225223222 

46225A2267227B228B229C22AB22B622BF22CD 

22DC22EB22F8228723152328,687 

1878 DATA 233e233E2348235A236D237F2392 

239D23A923BF2388888888888888e888888888 

888088888088888888888888 , 243 

1888 DATA CF23E123F423FD238B241F242C24 

41244C245B24692477244D454D4F525928494E 

53554646494349454ED45641,829 

1898 DATA 4C554S284552524FD2544F4F284D 

414E59285e41524941424C45D3424144205354 

52494E47284C454E4754C84F,412 

1188 DATA 5554284F4628444154C1494C4C45 

47414C2856414C55C5494E585554284552524F 

D244494D284552524FD25354,144 

1118 DATA 41434B284F564552464C4FD74E55 

4D4245522e544F4F2e434F4D584C45D84C494E 

45204E4F5428464F554EC44E, 753 

1128 DATA 45585428574954484F555428464F 

D24C494E4528544F4F284C4F4EC7474F535542 

284F5228464F522844454C45,169 

1138 DATA 5445C452455455524E2857495448 

4F555428474F5355C247415242414745284552 

524FD2424144285354S2494E,812 

1148 DATA 47284348415241435445D258524F 

4752414D20544F4F284C4F4EC7424144284445 

56494345284E554D4245D24C,326 

1158 DATA 4F41442846494C45284552524FD2 

425245414B2841424F52D4494F4342284F5845 

CE4E4F285355434828444556,887 

1168 DATA 4943C5494F434228575249544528 

4F4E4CD9494E56414C494428434F4D4D414EC4 

46494C45284E4F54284F5845, 349 

1178 DATA CE42414428494F43422e4E554D42 

45D2494F43422852454144284F4E4CD9454E44 

284F462846494CC55452554E , 944 

1188 DATA 43415445442e5245434F52C44445 

564943452e54494D454F55D444455649434528 

4E41CB53455249414C284255 , 488 

1198 DATA 53284652414D494EC7435552534F 

522e4F55S42e4F462852414E47C55345524941 

4C28425553284F5e4S525255, 948 

1288 DATA CE53455249414C28425553284348 

45434B5355CD44455649434528444F4EC55645 

52494659284552524FD24655 , 679 

1218 DATA 4E4354494F4E28554E494D584C45 

4D454E5445C4494E53554646494349454E5428 

5241CD4452495645284E554D,218 

1228 DATA 424552284552524FD2544F4F284D 

414E59284F58454E2846494C45D34449534B28 

46554CCC4441544128492F4F , 728 

1238 DATA 2e4552524FD246494C45284E554D 

424552284D49534D415443C84241442846494C 

45284E414DC5424144285e4F, 167 

1248 DATA 494E542844415441284C454E4754 

C846494C45284C4F434B45C4434F4D4D414E44 

28494E56414C49C444495245, 698 



1258 DATA 43544F5259284e554CCC46494C45 
284E4F5428464F554EC45e4F494E5420494E56 
414C49C4Ee82E1828e288ee8,217 



CHECKSUM DATA. 

(see page 8) 

18 DATA 8,957,888,428,727,554,599,553, 

272 , 698 , 618 , 21 , 71 , 33 , 162 , 6581 

1888 DATA 967,828,385,916,177,515,475, 

823,563,447,487,683,688,389,378,8393 

1158 DATA 371,576,527,246,356,582,517, 

543,392,518,596,5138 



€) 



Listing 2. 
Assembly listing. 



lENQLISH ERROR MESSfiGES FOR BftSIC 


IWRITTEN BY 


STEPHEN 


PRDKOPCHUK 


ERRNUM 


H 


»B9 




TftBST 


as 


»CB 




VUOW 


■■ 


*CD 




EDITftB 


m 


aei 




DEVPUT 


B 


B38 




MEMLO 


m 


»0ZE7 




DOSINI 


« 


*0C 




I 


*a 


»2000 




STfiRT 


LDft 


*Z 






Sift 


FLftG 






LDR 


EDITAB 


IFIND LOCATION 




BTA 


TABST 


lOF EDITOR 




LDA 


EDITAB+1 1 DEVICE HANDLER 




STft 


TflBST+1 


1 TABLE 




LDY 


»11 




LOOP 


LDft 


(TABST) 


,Y ICQPY EDITOR 




STft 


TABLE, Y 


1 DEVICE HANDLER 




DEY 




(FROM ROM INTO 




BPL 


LOOP 


IRAM 




LDft 


PUT 


(SAVE OLD 




CLC 




(fiDDRESS OF 




ADC 


HI 


lEDITOR PUT 




STft 


JUMP+1 


IRQUTINE FOR 




LDA 


PUT + 1 


SPROBRAM TO JUMP 




ADC 


»0 


ITO LATER 




STA 


aUMP+2 






LDA 


DOSINI 


IFIND DOS INIT 




STA 


DISK+1 


1 ADDRESS AND 




LDA 


DOSINI+l (SAVE IT TO JUMP 




STft 


DISK+2 


ITO LATER 


REINIT 


LDA 


« <PROGEND IMDVE BOTTOM OF 




STA 


MEMLO 


1 MEMORY TO END 




LDA 


It >PRaBEND )0F PROGRAM 




BTA 


MEMLD+l 






LDA 


• <RESET ICHANGE DOS INIT 




STA 


DOSINI 


1 ADDRESS TO 




LDA 


• >RESET I POINT TO OUR 




STA 


DOSINI+1 ! RESET CODE 




LDA 


It <CCHECK-1] ICHANBE EDITOR PUT 




STA 


PUT 


[ROUTINE + CIO PUT ADR 




STft 


DEVPUT 


IFOR lOCB 110 TO POINT TO 




LDft 


II >CCHECK-i: ;OUR NEW PUT ROUTINE 




STft 


PUT+1 






BTA 


DEVPUT+1 




LDA 


II <TABLE IMOUE EDITOR 




STft 


EDITAB 


1 HANDLER TABLE 




LDA 


II >TABLE ITO POINT TO OUR 




STA 


EDITAB+l 1 TABLE 




RTS 






RESET 


JSR 


REINIT 


1 SET UP TABLES 


DISK 


JMP 


»FFFF 


1 CHANGED TO DOB INIT ADR 


TABLE 








OPEN 


.WORD 


1 HANDLER TABLE 


CLOSE 


.WORD 


IFOR EDITOR 


BET 


.WORD e 




PUT 


.WORD e 




STftTUS 


.WORD a 




XIO 


.WORD e 






JMP 


REINIT 




CHECK 


PHA 




ISAVE ACC, XREB 




STA 


CHR 


1 AND YREB 




TXA 








PHA 








TYA 








PHA 








LDft 


ERRNUM 


1 IS IT AN ERROR? 




BEQ 


EXIT 


INO-NORMAL EXIT 




LDA 


CHR 


IHAVE WE REACHED 




CMP 


H'A 


1 "A" IN "AT LINE" 




BEQ 


EXIT 


IPBRT OF MESSAGE? 




CMP 


• »9B 


1 IS IT AN E0L7 




BEQ 


EDL 


) YES-BRANCH 




LDA 


FLAG 


I HAS NEW ERROR 




CMP 


»2 


1 MESSAGE BEEN 




BEQ 


EXIT 


1 PRINTED? 




LDA 


FLAB 


ICAN WE PRINT 




BNE 


GETPAR 


ITHIS? 


Ll 


JMP 


ERROR 


ISHOW A MEESflGE 


LDA 


110 


ISET OUTPUT CHECK 




STft 


FLAB 


■FLAG AND 


1 

GETPftR 


OMP 


3JUMP 


IBO PRINT EOL 


PLA 




! RESTORE REG'S 




PLft 




IMASK BASIC'S 




TftX 




1 ERROR MESSAGE 




PLft 




IBY RETURNING 




LDY 


• I 


IWITHOUT 




RTS 




I PRINTING A CHAR 
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EXIT 

OJUMP 



JUMP 
I 

ERROR 



PRINT 
PRLOQP 



I 

FLflS 

CHR 

) 

1 ERROR 

I 

BASIC 



UDA 1)2 

STA FLAG 

PLA 

TfiY 

PLA 

TAX 

PLA 

JMP BFFFF 

LDA ERRNUn 

ASL A 

TRY 

GCS lOERR 



(ALLOW FOLLQMINS 

) CHARS TO BE 

I PRINTED ALWAYS 

IRESTORE REB'S 



) CHANGED TO PUT ROUTINE 



! MULTIPLY ERRNUM 

l»2 

)ERR0R<128 
LDA BASIC, Y SFIND MESSAGE 
STA VLOW I ADDRESS AND 
LDA BASIC+1,Y ISAUE IT 
STA WLDW+1 
JMP PRINT (PRINT MESSAGE 



LDA 
STA 
LDA 
STA 
LDY 
I NY 
TYA 
PHA 
LDA 
AND 

asR 

PLA 
TAY 
LDA 
BPL 
LDA 
JSR 
LDA 
STA 
JMP 



10, Y 
VLOW 
lO+l , Y 
VLOW+l 
»25S 



(FIND MESSAGE 
(ADDRESS AND 
(SAVE IT 

(ROUTINE TO 

(PRINT ERROR MESSAGE 

[SAVE Y REG 



(VLOWl.Y (GET CHARACTER 
41«7F (MASK INVERSE 
aUMP (GO PRINT IT 

(RESTORE Y REG 



CVLOW) , 
PRLOQP 
H32 
JUMP 
Itl 

FLAB 
GETPAR 



(ARE WE AT END? 

[SEND SPACE AT 

[END 

I SET FLAG TO MASK BASIC 

(ERROR MESSAGE 

(AND EXIT 



.BYTE e 
.BYTE e 



MESSAGE ADDRESS TABLES 



.WORD 0,0,B2,B3,B4, B5,Bi>,B7, BO 
.WORD B9,BlB.Bli,Bl2,B13;BlA,BlS 
.WORD Bli,B17,Bia,B19,B20,B2l 
-WORD I 128, 1129, ll3a, I 131 , 1132 
I 133, 1134, 11 3S, 1136, I 137 



.WORD 

.WORD I 13h; 1139; I14B; IlAi; 1142 

.WORD '•" •.,..',,•■■,..,',.•, 

.WORD 
. WORD 
.WORD 



1143. I 144, II 45, I 146, I 147 
0,2,0,0,0,0,0,0,0,0,0,0 
1160, nil, 11 62, 11 i3, It 64 
1165, 1166, 1167,1168,1169 



.WORD 1170,1171 



[ 

[THE ERR 

I 

B2 

B3 

B4 

BS 

B6 

B7 

B8 

B9 

B10 

Bll 

B12 

B13 

B14 

BIS 

B16 

B17 

B18 

B19 

B20 

B21 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1133 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

I 144 

I 145 

I 146 

I 147 

1160 

1161 

1162 

I 163 

1164 

I16S 

1166 

1167 

1168 

1169 

1170 

1171 

( 

PROGEND 



OR MESSAGES 

.CBYTE "MEMORY INSUFFICIENT" 

.CBYTE "VALUE ERROR" 

-CBYTE "TOO MANY VARIABLES" 

.CBYTE "BAD STRING LENGTH" 

.CBYTE "OUT OF DATA" 

.CBYTE "ILLEGAL VALUE" 

.CBYTE "INPUT ERROR" 

.CBYTE "DIM ERROR" 

.CBYTE "STACK OVERFLOW" 

.CBYTE "NUMBER TOO COMPLEX" 

.CBYTE "LINE NOT FOUND" 

.CBYTE "NEXT WITHOUT FDR" 

.CBYTE "LINE TOO LONG" 

.CBYTE "GQSUB OR FOR DELETED" 

.CBYTE "RETURN WITHOUT GOSUB" 

.CBYTE "GARBAGE ERROR" 

.CBYTE "BAD STRING CHARACTER" 

-CBYTE "PROGRAM TOO LONG" 

.CBYTE "BAD DEVICE NUMBER" 

.CBYTE "LOAD FILE ERROR" 

.CBYTE "BREAK ABORT" 

.CBYTE "lOCB OPEN" 

.CBYTE "NO SUCH DEVICE" 

.CBYTE "lOCB WRITE ONLY" 

.CBYTE "INVALID COMMAND" 

.CBYTE "FILE NOT OPEN" 

.CBYTE "BAD lOCB NUMBER" 

.CBYTE "lOCB READ ONLY" 

.CBYTE "END OF FILE" 

.CBYTE "TRUNCATED RECORD" 

.CBYTE "DEVICE TIMEOUT" 

.CBYTE "DEVICE NAK" 

.CBYTE "SERIAL BUS FRAMING" 

.CBYTE "CURSOR OUT OF RANGE" 

.CBYTE "SERIAL BUS OVERRUN" 

.CBYTE "SERIAL BUS CHECKSUM" 

.CBYTE "DEVICE DONE" 

.CBYTE "VERIFY ERROR" 

.CBYTE "FUNCTION UNIMPLEMENTED" 

.CBYTE "INSUFFICIENT RAH" 

.CBYTE "DRIVE NUMBER ERROR" 

.CBYTE "TOO MANY OPEN FILES" 

-CBYTE "DISK FULL" 

.CBYTE "DATA I/O ERROR" 

.CBYTE "FILE NUMBER MISMATCH" 

.CBYTE "BAD FILE NAME" 

.CBYTE "BAD POINT DATA LENGTH" 

.CBYTE "FILE LOCKED" 

.CBYTE "COMMAND INVALID" 

.CBYTE "DIRECTORY FULL" 

.CBYTE "FILE NOT FOUND" 

-CBYTE "POINT INVALID" 

*- *02E0 
.WORD START 
.END 



Make Your Best Connection 




R-Verter 



SERIAL BUS MODEM ADAPTOR 



WITH • Smart Terminal Program-with X Modem Protocol • "R:" Handler 
-use with Basic, ACTION!, etc. • AVAILABLE SOON - Advanced software 
disk with 80 Column Terminal Program. 

Available in Four Models to match Your Modem - compatible with most 
RS-232 devices. 



Works with - A tan 400 ; 600XL ; 800 ; 800XL 



$49.95 




INTERFAST-r 

BUFFERED PRINTER INTERFACE 



Can You Print This? 



S XJLIPX. JTW ^Ma" SicrijU: L-Jt4iH il.a SJlJll.PX 



»*m ^-^m 



YOU CAN WITH AN INTERFAST-I 



$129.95 



* trademark of Atari, Inc. 

ACTION! is a trademark of Action Computer Services 
R-Verlcr and INTERFAST-I are trademarks of Advanced 
Interface Devices. Inc. 



I ADVANCED INTERFACE DEVICES | 



MC — VISA — C.O.D. 

P.O. Box 2188 

Melbourne, FL 32902 

(305) 242-2772 



CIRCLE #119 ON READER SERVICE CARD 



Datawnk 




Now Data Perfect™ from UK helps 
you organize your files and numbers 
like the adding machine first 
helped your grandfather. It 
keeps tax records. Lets you 
change files easily List 
and edit addresses. 
Compares stocks. Stores 
expenses. It even 
calculates. Used with 




Letter Perfect™ you can even make 
custom mailings, Simply 

When It comes to practical 
software for Ataris, Apples and 
look alikes. Data Perfect is 
simple to learn. And hard 
to beat. Ask your dealer 
for a demonstration, 
or write LJK for 
more information. 



UK, INC. • 7852 Big Bend Blvd., St. Louis, MO 63119 • (314) 962-1855 

© UK Inc. 1983 
CIRCLE #136 ON READER SERVICE CARD 
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16K Cassette or 24K Disk 



by Stephen D. GroU 



Here is a game that will make learning to spell a 
real adventure! After you type RUN, the title screen 
will show while characters are being defined. Then 
you will be given the option of a difficult game or 
an easy one. 

After you have chosen the game difficulty, you'll 
be asked if you would like to enter new words. If you 
type y, four lines of code will be listed, so that you 
may enter the words you would like to learn to spell. 
Simply move the cursor past the DATA statement after 
each line number and type in your word. Each word 
may be up to fifteen letters long. Be sure to press RE- 
TURN after completing each word. 

After you've entered four words, be sure the cursor 
is on a free line and type CON. to continue. 



The game plan. 

One of the four words you entered will be selected 
at random and shown for a brief time. It will then 
be replaced by a line of dashes. Each dash represents 
a letter in the word. 

A colored square which appears below the line of 
dashes represents your marker. You're in the first room 
of a 22-room complex. Using a joystick in port 1, you 
move your marker from one room to another— as you 
move off the screen, another room will appear. 

As you move through the complex, you'll see differ- 
ent colored letters and keys scattered about. The let- 
ters are from the word shown in the first room. 

Your task is to move all of the letters to the first 

(continued on page 54) 



AATARI 



600XL CALL 

800XL CALL 



Printers/Etc. 



vL 



©1984 Atari, Inc..' All rights resenfd. 



DISK DRIVES 



Rana 1000 
Asira 2001 

Indus GT 

TrakAT-D2 

Trak ATI 

Irak AT-D4 

Astra 1620(Dual) 

Percom 

Atari 1050 



INTERFACES 

Axiom 846 Call 

Ape Face Call 

Atari 850 (In Stock) . . $169 

Interfast 1 $150 

Microblts1150 Call 

R-Verter Call 

DIRECT PRINTERS 

Axiom AT-100 $196 

Atari 1027 $269 

Axiom 550 AT $259 

Axiom 700 AT $469 

Atari 1025 $299 

DIRECT MODEMS 

MicrobitslOOOC .... $128 

OTHER ATARI 

400 Keyboard Call ATR-8000 (64K) $489 

Koala Pad $67 ATR-8000 {16K) $359 

Ctialkboard Pad $75 Alien Voice Box $98 

Bit-3 80 Column ....$228 1010 Recorder $74 

GEMINI 10X$259.00 

ATARI SOFTWARE 



MEMORIES 

Microbits64K(XL) .. 
Mosaic 48K (400) ... 
Mosaic 64K (400/800) 
Mosaic 32K 



$298 

$549 
. $309 
. $329 
. $319 

. Call 
. $499 
. Call 

$249 

$115 
$98 
Call 
$68 



MISCELLANEOUS 

Syn Calc (D) . $59 
Syn File (D) $59 

Syn Trend (D) . $48 
Syn Com (D| $29 

Syn Ctiron (D) S29 

Decattilon (R) $29 

Drols (D) $23 

Gyruss (R) $31 

Heist (D) S23 

Bruce Lee (C/D) $27 

Universe (D) Call 

Questron (D) $34 

Koala Coloring I . $20 
Koala Logo Design S27 
Bumble Games (D) $27 
Miles Accounting Call 

World Gtst, Baseball $23 
Gridrunner (R) $20 

Sargon II (C/D) $23 

(Millionaire (D) $34 

Castle Wollenstein(D) $20 
Odesta Chess (D) .... $46 
Financial Wizard (D) . . $41 
Ultima III (D) $39 

ADVENTURE INT'L 

Adv. 1-12 each (C) .... $18 

Preppie(C/D) $20 

Preppiell(C/D) $23 

Diskey(D) $33 

Sea Dragon (C/D) $23 

Lunar Lndr . (C)$11 (D)$15 
Galactic Empire (C) ..$14 

ADVENTURE INT'L 

Ultra Disassembler(D) $33 

Diskey(D) $33 

Adv. 1-12 (each) (C) ... $18 
Saga 1-12 (each) (D) . . $27 

ATARI 

Atari Writer (R) $68 

Paint (D) $30 

Microsoft Basic II (R) . $64 

Visicalc(D) $139 

Home File Mgr(D) ... $36 
Assembler Editor (R) . $44 

Qix(R) $32 

Dig Dug (R) $32 

Atari Logo(R) $72 

Ms. Pac Man (R) $33 

.loust (R) $33 

Donkey Kong Jr (R) $35 
Computer Chess (R) S24 

Galaxian(R) $30 

Defender (R) $30 

ET $34 

Pac Man (R) $30 

Centipede (R) $30 

Caverns of Mars (D) . . $28 

Star Raiders (R) $30 

Conv. Lang. Ea.(C) ... $42 

Asteroids (R) $27 

Space Invaders (R) ... $27 
Missile Command (R) . $27 

Telelink(R) $21 

Family Finance (D) ... $35 

Prog. 1 (C) $18 

AVALON HILL 

Telengard (C)$16(D)$19 

Close Assault (C) 20(D) 23 

TAG (D) $27 

Space Station Zulu 

(D)$17(C)$14 

Flying Ace . (D)$21 (C)$18 
GFS Sorceress 

(D)$23(C)$20 



AVALON HILL(Cont'd) 

Moon Patrol (C) $17 

B-1 Nuc.Bomber(C) . . $12 

Legionnaire (C) $23 

Empire of Overmind 

(D) $23 (C) $20 

Tanktics . . . (D)$20(C)$17 
Comptr Stock & Bonds ... 

(D)$17(C)$14 

Galaxy (D)$17(C)$14 

NukeWar(C) $12 

Andromeda Conquest ... 

(D)$16(C)$13 

Close Assit (D)$23(C)$20 
BRODERBUND 

Sky Blazer (D) $22 

Bank St. Writer (D) ... $46 

A.E. (D) $23 

Arcade Machine (D) . . $39 
Choplifter (D)$23(R)$29 

Labyrinth (C/D) $20 

Serpentine . (D)$23(R)$27 
Steller Shuttle (C/D) . . $17 

Apple Panic (C/D) $20 

Genetic Drift (C/D) ... $20 
Oper. Whirlwind (D) . . $27 
Choplifter . (D)$23(R)$29 
Match Boxes (C/D) . . . $20 
CDY CONSULTING 

Pogoman (C/D) $27 

CBS 

Mountain King (R) ...$27 
Boulders & Bombs (R) $27 
Krazy(each)(R) $27 

CONTINENTAL 

Home Accountant (D) $48 
Tax Advantage (D) ...$45 
COUNTERPOINT SW Ca 
DATASOFT 

Pooyan(C/D) $20 

Teletalk(D) $33 

Graphic Master (D) ... $23 

Micropainter(D) $23 

Zaxxon (C/D) $27 

Pac. Coast Hwy (C/D) . $20 
Clowns/Balloons (C/D) $20 

Spell Wizard (D) $34 

Canyon Climber (C/D) $20 
EASTERN HOUSE 
Monkey Wrench II ... $51 
EDUCATIONAL SW 

Tricky 1.2,3 or4 $15 

Tricky5-13 $22 

EDU-WARE 

Spelling Bee (D) $27 

Compu/Read 

(D)$21 (C)$15 

Compu/Math-FR 

(D)$27(C)$21 

Compu/Math-Dec 

(D) $27 (C) $21 

EPYX 

Dragon Riders (C/D) . . $27 

Temple APS (C/D) $27 

Jumpman(C/D) $27 

FIRST STAR 

Boulder Dsh (C/D) 20 (R) 27 

Bristles (C/D) $20 

Flip Flop (C/D) $20 

GAMESTAR 

Football (C/D) $21 

Baseball (C/D) $21 



DIABLO 

630 Letter Dual $1559 

SILVER REED 

EXP 400 Ltr. Oual $288 
EXP 500 Ltr Oual. $355 
EXP 550 Ltr, Oual $419 

EXP 770 Ltr. Qual. iSA9 
STAR 

Gemini 10X $259 

Gemini 15X $378 

Delta 10 $378 

Delta 15 $519 

Radix 10 $549 

Radix 15 $645 

Pov^er Type Call 

TOSHIBA 

1340 , $739 

1351 $1249 

NEC 

3510 $1215 

3530 $1215 

3550 $1498 

7710/7730 $1648 



CITOH 

Prowriter $315 

Prowriterll $498 

Starwriter $909 

Printmaster $1189 

OKIDATA 

82A Call 

84P 799 

92 $409 

93 $639 

DAISYWRITER 

2000 $985 

MANNESMANN 

160L $559 

Spirit $299 

JUKI 

6100 $409 

ABATI 

LO 20P Ltr Qual. $378 

PANASONIC 

1090 $255 

1091 $309 
1092 $453 



AMDEK 

V300 G $119 

V300 A $139 

V310 G (IBM) . $155 

V310 A (IBM) $159 

Color I -f $269 

Color II -f $399 

Color III $349 

Color IV (IBM) $699 
PRINCETON GRAPHICS 

MAX 12 (Amber) $178 

HX 12 (RGB) $449 

SR 12 (RGB) . $595 
SUPER 5 

100A (Amber) ... $99 

500G (IBM with tilt) $126 

500A (IBM with lilt) $126 



MONITORS 



SAKATA 

SC100 (Color) $239 

1000G (Green) $99 

TAXAN 

100 Green . $115 

105 Amber $125 

210 RGB/Composite $269 

400 RGB Med-Res. S296 

415 RGB Hi-Res $429 

420 RGB Hi-Res.(IBM)$479 

NEC 

JB 1260 (Grn) $99 

JB 1201 (Grn) $145 

JB 1205 (Amber) $145 

ZENITH 

Green 185 

Amber $95 



MODEMS 



NOVATION 

J-Cat $99 

Apple Cat II $259 

D-Cat $149 



HAYES 

Smartmodem $199 

Smartmodem 1200 .. $479 

Micromodem II $259 

Ivlicromodem lie .... $225 

PROMETHIUS 

Promodem 1200 $349^ 




COSMIC 
COMPUTERS 

727 BREA CANYON RD., SUITE 16 
WALNUT, CA 91789 

(800) 626-7642 



PLEASE FOR ORDERS ONLY 
SORRY, NO COD'S 



c^^iF (714) 594-5204 

FOR TECHNICAL INFO, ORDER INQUIRIES, 

Add $2.50 shipping per soltware order in conlinenlai U.S. Add $5.00 
shipping per software order tor AK, HI, FPO-APO. Add $10.00 or 15% 
(whichever is greater) per software order for non-U .S. Call for cost of 
hardware shipping, Calif residents add 6V:% sales lax. Cashiers 
checks or money orders filled within 24 dours for items in stock. 
Personal checks require 4 weeks to clear. MasterCard and Visa OK tor 
software only within conlinental U S., add 3% surcharge. Include card 
no., expiration date and signature. Due to our low prices, all sales are 
final. All defective returns must have a return authorization number. 
Please call to obtain one before returning goods for replacement or 
repair. Prices & availability subjecl to change. 




-i^nsTi^fl 

DISK DRIVE SYSTEM 

MORE FOR YOUR MONEY 

DOUBLE OR SINGLE DENSITY 

TWO DRIVES 

2001 DISK DRIVE . .. $549 




INDUS GT $309 

ATARI SOFTWARE 



MISCELLANEOUS 

Financial Wizard (D) . . $41 
Castle Wolfenstein(D) $20 

Master Type (D) $27 

Astro Ctiase(D) $22 

Miner 2049er(R) $34 

Megaiegs(C) $23 

Cap'n Cosmo (D) $19 

Spy's Demise (D) $14 

Gaiac. Ctiase (D)$20 (C)$18 

Kid Grid (C/D) $20 

Battle Trel<(D) $20 

Air Strike (C/D)' .' $27 

T&F-PMP Property 

Management (D) . . $149 
GEBELLI 

Firebird (R) $27 

Embargo (R) $30 

Candy Factory (D) $20 

Matoti Racers (C/D) . . $20 
Dr. Goodcode(D) .... $20 
HAYDEN 

Go (D)$23(C)$20 

Sargon II . . (D)$23(C)$20 

Coco (C/D) $34 

Coco II (C/D) $27 

INHOME 

Baseball . . (R)$23(D)$23 

Crypts of Terror 

(D) $23 (C) $20 

INNOVATIVE DESIGN 
Speedway Blast 

(D)$20(R)$27 

Pool 400 (R) $27 

JV SOFTWARE 

Jrny to Pints (C/D) $20 

Action Quest (C/D) ... $20 
Gtiost Encount.(C/D) .$20 

INFOCOM 

Zorl< i, iior iil(D) $27 

Deadline (D) $34 

Starcross(D) $27 

Suspended (D) $34 

Witness (D) $34 

Planetfali(D) $34 

Enctianter(D) $34 

Infidel (D) $34 

KRELLSAT Call 

INTELL. STATEMENTS 

Prof. Blackjack (D) ... $46 

LJK 

Letter Perfect (D) .... $74 

Data Perfect (D) $74 

Spell Perfect (D) $56 

Letter Perfect (R) .... $74 
MICROPROSE 

SoloFiigtlt(D) $26 

Hellcat Ace (C/D) $23 

MONARCH 

ABCCompiler(D) .... $55 
OPTIMIZED SYSTEMS 

Action (R) $65 

Basic XL (R) $65 

Mac 65(D) $58 

C-65(D) $58 

Bug 65(D) $23 

ODESTA 

Chess (D) $45 

Ctieckers(D) $34 

Odin(D) $34 

PARKER BROS 

Astroctiase(R) $33 

Death Star (R) $33 

Q-Bert(R) $33 

Popeye(R) $33 

PHOENIX 

Birth of Phoenix (D) . . $16 

Adv. In Time (D) $20 

QUALITY 

Name That Song 

(D)$13(C)$11 

Return of Hercules(D) $22 

AM Baba(D) $22 

Jeeper Creepers (D) . . $20 
ROKLAN 

Gorf (D)$27(R)$30 

DIx Invaders (D)$23(R)$27 



RESTON 

Moviemaker (D) $45 

SCARBOROUGH SYS. 

Mastertype(D/R) $27 

Songwriter (D) $27 

SCHOOL WIZWARE . Call 
SENTIENT 

Gold Rush(D) $23 

Cyborg (D) $23 

SIERRA ONLINE 
Mission Asteroids (D) $17 
Uiys.&Gidn Fleece (D) $27 
Crossfire . . (D)$20(R)$23 

Mouseattack(D) $23 

Jawbreaker (D)$20(R)$23 

Threshold (D) $27 

Homeword(D) $46 

Ultima 11(D) $39 

Dark Crystal (D) $26 

Wiz. & Princess (D) ... $22 

Lunar Leeper (D) $20 

Wiz& Princess (D) ... $22 

Frogger(C/D) $23 

SIRIUS 

Bandits (D) $23 

Space Eggs (D) $20 

Sneakers (D) $20 

Way Out (D) $27 

Type Attack (D) $27 

Repton(D) $27 

Critical Mass(D) $27 

Fast Eddy(R) $23 

SPINNAKER 

Snooper Troop 1,2(D) . $30 

Most Amazing (D) .... $27 

Kids on Keys(D) $20 

Trains (D) $27 

Delta Drawing (R) .... $27 

Aerobics (D) $34 

Hey Diddle Diddle (D) . $20 
Srch AmzngThngs(D) $27 
Story Machine (D) .... $23 
Face Maker (D) $23 

STRATEGIC SIM. 

Broadsides (D) $27 

Carrier Force (D) $39 

Combat Leader (D) ... $27 

Rails West (D) $27 

Epidemic (D) $23 

Eagles (D) $27 

Cosmic Bai i or 11(D) . . $27 

SUBLOGIC 

Flight Simulator 11(D) . $36 

Pinbail(C/D) $20 

SWIFTY 

J. White Music Lessons 

(C/D) $20 

SYNAPSE 

File Manager (R) $54 

Fort Apocalypse (C/D) $23 
Dimension X (C/D) ...$23 

Blue Max (C/D) $23 

Encounter (D/R) $23 

Zeppiin(C/D) $23 

Pharoah's Curse (C/D) $23 

Protector II (D)$23(R)$29 
Shamus . . . (D)$23(R)$29 
Fort Apocalypse (C/D) $23 

Shamus II (C/D) $23 

Necromancer (C/D) . . . $23 
Pharoh's Curse (C/D) .$23 

Drelbs(C/D) $23 

Shadow World (C/D) . . $23 

Survivor (C/D) $23 

THORN EMI 

Soccer (R) $34 

Jumbo Jet (R) $34 

Submarine Comm.(R) $34 

TRONIX 

S.A.M.(D) $39 

P.M. Animator (D) .... $29 

Juice (C/D) $20 

Chatterbee(D) $27 

USA 

3-DSprgrphcs(C/D) . . $27 
Survival Adv. (C/D) ...$17 
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room and place them, in proper order, along the line 
of dashes. This isn't an easy job. To move a letter, you 
must first find one of the keys that corresponds to the 
color of the letter you wish to move. Touch your mar- 
ker to the key, and your marker will become a dupli- 
cate of that key. Touching any letter of the same color 
as the duplicate key releases that letter, which then 
becomes your marker. 




Word Adventure. 



DISK WIZARD n 



THE MOST COMPLETE UTILITY PACKAGE 
FOR ATARI* COMPUTERS AT ANY PRICE 

100 % MACHINE LANGUAGE • SINGLE LOAD • MENU DRIVEN 

THIS USER FRIENDLY PACKAGE INCLUDES THE FOLLOWING POWERFUL 
PROGRAMS FOR THE ATARI' 400/800/XL SERIES COMPUTERS (40K REQUIRED) 

DISK BACK-UP— SINGLE/DOUBLE DENSITY • SUPPORTS 1 OH 2 DRIVES 

• ALLOWS BACKUP OF DISKS PROTECTED BY BAD SECTORING • FAST 
COPY OPTION • SECTOR STATUS SUMMARY • OPTIONAL PRINTOUT OF 
SECTOR STATUS • DISK MAPPING 

DISK EDIT — SINGLE/DOUBLE DENSITY • DISPLAY/MODIFY/PHINT ANY 
SECTOR • SECTOR DISPLAYED IN HEX ASCII/ATASCIl • WORKS WITH 
ANY FORMAT • SCAN SECTORS FOR A SERIES OF BYTES OR A STRING 

• DISPLAY/PRINT DIRECTORY • TRACE/REPAIR FILE LINKS • RECOVER 
AND AUTOMATICALLY VERIFY DELETED FILES • FORMAT DISKSWITH 
AUTOMATIC LOCK OUT OF BAD SECTORS • DECIMAL/HEX NUMBER 
CONVERSION 

DISASSEMBLER — single/double density • disassemble from 

DISK by sector NUMBERS • DISASSEMBLE COMPOUND BINARY FILES 
BY FILE NAME • OUTPUT TO SCREEN OR PRINTER • SELECTABLE 
MNEMONIC DISASSEMBLY WITH OVER 400 STANDARD ATARI MEMORY 
LOCATION NAMES 



DISK SPEED - 



VERIFIES/ALLOWS ADJUSTMENT OF DISK SPEED • BAD 
SECTORING 1810 ONLY) 



INCLUDES COMPREHENSIVE MANUAL WITH MANY USAGE EXAMPLES 



ORDERING INFORMATION 

For tasi deliverv. send certified 
check Of money order. 
MASTERCARD & VISA accepted. 
(N.Y. Residents add 7% sales laxf 
Phone orders accepted on C.O.D. 
and charges. 



"ATARI IS a registered Trademark of Alar 



$29^ 0M^ 



SOFTWARE, INC. 

)00 OUARTZ WAY 
SYRACUSE, N. Y. 13219 

ORDERS TOLL FREE 

1-800-732-0320 

Info, and N.Y. Residents 

1-315-488-0485 



Take the letter to the first room and place it on the 
dash which represents its proper location within the 
word. Press the joystick button, and the letter will 
be released. Your marker will reappear on the star be- 
low. Continue this process until all letters are properly 
placed. 

When you've finished placing all the letters, posi- 
tion your marker on the star and press the joystick 
button. The word will appear, properly spelled, below 
the marker. If you have the word correct, a flash of 
color and a chirping sound will result. If you spelled 
the word incorrectly, a buzzing sound will be heard. 
When you're ready to continue, press the joystick but- 
ton, and a new word will appear for you to spell. 

After you've completed all four words correctly, the 
gate at the top of the screen in the first room will 
open. Move your marker through this gate to receive 
a victor's crown and hear the cheering applause of 
the multitudes. 

If you would like to continue to play, simply press 
the joystick button again. The options and opportu- 
nity to enter new words will be offered to you once 
more. 

The catches and assists. 
As you play Word Adventure, you'll notice some 
question marks appearing from time to time. These 
represent mysteries. If you touch a question mark with 
your marker, one of three things will happen: 
(1) Your marker may be transported to the first 
room. This can be a timesaver if you're on your 
way back, or it can be a delay if you were hop- 
ing for one of the results below. 

(2) You may get a glimpse of the word you're 
trying to spell. It will appear at the bottom of 
the screen for a moment, then disappear. 

(3) Duplicates of all four colored keys may ap- 
pear in the room. This will save you the time 
of having to hunt for the original. 

Another thing you will notice as you move through 
the complex is a nasty-looking square face. This is 
the Phantom. He's a mean character placed in the 
maze to make things difficult for you. In the Phan- 
tom's lair, which is at the end of the corridor moving 
right from the first room, he'll come after you — to 
throw you out. If the Phantom touches your marker, 
it will be transported back to the first room. 

From time to time, you'll run into the Phantom in 
other parts of the complex. He will appear in rooms 
which contain letters, and he won't come after you 
unless you're carrying a key. If you are carrying a key, 
he'll try to touch your marker and take the key away. 
If he succeeds, your marker will simply return to its 
original square shape. 

If you're able to touch the letter with your key be- 
fore the Phantom steals the key, he'll stop the chase. 
This is also true in his lair. 
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Some things to be aware of. . .an easy game and 
a hard game play exactly the same. The only differ- 
ence is that the Phantom moves more slowly in the 
simpler version. And beware: as you get closer to com- 
pleting the word, the Phantom appears more often. 

Always be careful while carrying a letter. If you hap- 
pen to touch a key or a Phantom while carrying a 
letter, you'll lose the letter. And there's no way to get 
it back. If this happens, or if you find you've made 
a mistake in placing a letter (so that it's clear you can- 
not spell the word correctly), place your marker on 
the star in the first room and press the joystick but- 
ton. The word will be read as an incorrect spelling. 
Press the button again, and you'll be given the same 
word or a new one to work on. D 

Listing 1. 



HORD (ADVENTURE 
BV STEVE GROLL 



1 REM 

2 REM 

3 REM 

8 Kl=l:K2=2:K32=32:DIH MD$C15) ,LITT (19 
) ,LITL CIS) ,KEYC4> ,RC0M(19J ,LK flSJ ,LIP( 
15) , HRD C4) , DIF$ (Kl) , NH$ (Kl) 

9 C=K1 : KEY (Kl) =35 !KEY (K2) =3 : KEY (3) =163 
:KEYC4)=131:PLK=7:PLY=4:MX=9:MY=5:G=Ke 
:GOTO 16 

le PLX=mT (ie«RND (KO) ) +6 : PLY=INT (6«RND 
(K8)}+3:L0CATE PLX,PLY,L5E :IF L5EOK32 
THEN 18 

11 RETURN 

12 MP=Ke:FOR LP=K1 TO HD 

13 IF RCON(LP)=R THEN COLOR LITT(LP):P 
LOT PLH,PLY:GOSUB 10:IF LP<=LEN(WDS) T 
HEN MP=1 

15 NEXT LP: RETURN 

16 POKE 10e,PEEK(iee)-5:GRAPHICS KOzSL 
= (PEEK (186) +K1)»256 : POSITION Kl , 5 : G05U 
B 32280: FOR NM=Ke TO 512 

19 POKE 5L+MM, PEEK (57344+MM) : NEXT MM:P 

DKE 756,SL/'256:F0R LP=K1 TO 4:F0R MM=K 

8 TO 7; READ V:POKE C*8+5L+MM,U 

28 NEXT MM:C=C+Kl:NEXT LP:GOSUB 32308: 

GOTO 50 

38 IF FND=3 OR FNI>=35 OR FND=131 OR FN 

D=163 THEN SOUND K2,12,18,15:PLR=FND:M 

APP=Kl: RETURN 

32 K=Kl:FOR LP=K1 TO MD-4:IF K=5 THEN 

K=K1 

34 IF FND=LITT(LP) AND R=RCON (LP) AND 

PLR=KEY(K) THEN PLR=FND :FND=K32 :RCON(L 

P)=Ke:MAPP=Ke: SOUND l,12,e,15:G0SUB 48 

36 K=K+Kl:NEXT LP: IF NM<3 THEN NM=K2 

38 RETURN 

48 NM=NM-Kl:G=Kl:MR=K8: SOUND Kl,KO,Ke, 

K8 'RETURN 

58'fOR LP=K1 to 4:HRD(LP]=K8:NEXT LP:H 

RDC=K8 

52 TRAP 68:VH=Kl:LL=Kl:FHD=42:K=Kl:L=K 

1 : C0L=K8 : L0K=K1 : MSEE=KO : C1=K8 : C2=K8 : C4 

=K8:C5=Ke 

54 G=Ke:SELH=INT(4«RND(K8))+Kl:0N SELH 

GOTO 1818.1828,1830,1848 
56 READ HD$:NN=LEN(HDf} 

58 HD=LEN(HD$)+4:F0R LP=K1 TO IID:RCON( 
LP)=INT(28«RND(K0))+Kl:NEXT LP 
68 LITT(L)=ASC(MDS(L))+COL:IF C0L=K32 
THEN C0L=C0L+64 

62 C0L=C0L+K32:IF C0L>168 THEN C0L=K8 
64 LITL(L)=LITT(L)+KEY(K)+RCON(L) :K=K+ 
Kl:IF K=5 THEN K=K1 
66 L=L+Kl:GOTO 60 

68 TRAP 3e88:LITT(L)=3:L=L*Kl:LITT(L)= 
35 : L=L*K1 : LITT (L) =131 : L=L+K1 : LITT (L) =1 
63: GOTO 78 

78 FOR LP=K8 TO HD-5: COLOR 45: PLOT (20 
-LEH(WDS))/'K2+LP,3:NEXT LP 
74 FOR LP=K1 TO HD-4:IF LX(LP} THEN CO 
LOR LIP (LP): PLOT LX(LP),3 



76 NEXT LP: RETURN 

78 K=18:Y=5:GRAPHICS 18:P0KE 756,SL/'25 
6 

79 IF INT(K2»RND(K8)) THEN BDR=161:GAT 
=33:PLRC=129:MC=138:G0T0 81 

88 BDR=33:GAT=161:PLRC=Kl:MC=K2 

81 FOR LP=K8 TO 3 :C=INT(4WRND(K8))HtKl: 
ON C GOSUB 82,84,86,87:SETC0L0R LP,C,S 
:NEXT LP:PLR=PLRC:GOTO 18088 

82 IF NOT CI THEN C1=K1 :C=K2:S=8 ;RETU 
RN 

84 IF NOT C2 THEN C2=K1 :C=4:S=4 :RETUR 
N 

86 IF NOT C4 THEN C4=K1 :C=9:S=4:RETUR 
N 

87 IF NOT C5 THEN C5=K1 :C=12 :S=8:RETU 
RN 

88 GOTO 82 

98 ? tt6; "If": COLOR BDR: RETURN 

95 GOSUB 98:PL0T K8,K8:PL0T 19,K8:PL0T 

19,ll:PL0T K0,ll:RETURN 
188 GOSUB 90:PL0T Ke,Ke:DRAHTO 19,K8:P 
LOT Ke,ll:DRAMTO 19, 11: RETURN 
288 GOSUB 98: PLOT K8,K8:DRAHT0 KO,ll:P 
LOT 19,K8:DRAHT0 19,11:RETURN 
258 GOSUB 98:PL0T K8,Ke:DRAHT0 19,K0:D 
RAHTO 19,ll:DRAHT0 K8,ll:DRAHT0 Ke,Ke: 
RETURN 

408 GOSUB 9e:PL0T KO,KQ:DRAUTO K0,11:D 
RAHTO 19,11 :DRAHTO 19, K8: RETURN 
588 GOSUB 90:PL0T 19,K8:DRAMT0 KO,KO:D 
RAHTO Ke,ll:DRAHTO 19, 11: RETURN 
680 GOSUB 98: PLOT KO,Ke:DRAMTO 19,K0:D 
RAHTO 19,11 :DRAHTO Ke,ll:RETURN 
788 GOSUB 98: PLOT K0,11:DRAHT0 KO,KO:D 
RAHTO 19,K0:PL0T 19,11:RETURN 
888 GOSUB 9e:PL0T Ke,ll:DRAHTO 19,ll:D 
RAHTO 19,K8:PL0T K0,K8:RETURN 
988 GOSUB 98:PL0T KO,Ke:DRAHTO 19,K0:D 
RAHTO 19,ll:PL0T K8,11:RETURN 
1880 GOSUB 9e:PL0T K0,K0:DRAHT0 K8,ll: 
DRAHTO 19,ll:PL0T 19,Ke:RETURN 
1818 IF NOT HRD(Kl) THEN N=K1: RESTORE 

38818: GOTO 56 
1828 IF NOT HRD(K2) THEN N=K2: RESTORE 

38828: GOTO 56 
1838 IF NOT HRD (3) THEN N=3: RESTORE 3 
8838: GOTO 56 

1840 IF NOT HRD (4) THEN N=4: RESTORE 3 
8840: GOTO 56 
1110 GOTO 1810 

1150 MSE=K32 : CMOS=INT (NMWRND (KO) ) +K1 : I 
F CM0S<4 OR MR=K1 THEN GOSUB 18:MY=PLY 
:MX=PLX: COLOR MC:PLOT MX, MY 
1160 RETURN 

1288 SOUND K1,130,8,6:C0L0R MSE:PLOT M 
X,NY 

1210 IF MX<X THEN HX=HX+K1 : GOTO 1230 
1220 IF MK>X THEN MX=MX-K1 
1230 IF MY<Y THEN MY=MY+K1 :GOTO 1250 
1240 IF MY>Y THEN MY=MY-K1 
1250 LOCATE MX, MY,MSE : COLOR MC:PLOT HH 
,MY 

1255 IF »a<=X AND MY=Y THEN SOUND Kl,Ke 
,Ke,K8:PLR=PLRC:C0L0R PLR:PLOT X,Y:MAP 
P=K0:FND=MC:MSE=32:IF MR=K1 THEN MR=K2 
1260 IF STICK (KO) =15 THEN FOR D=K1 TO 
GSH:NEXT D 
1270 RETURN 

2880 POKE 77, K8:FND=K32: SOUND Kl,Ke,Ke 
,K8:Q=INT(3e«RND(K8))^Kl:IF Q<6 THEN G 
OSUB 10: COLOR 63: PLOT PLX.PLV 
2081 IF G=K1 THEN MR=Ke 

2882 IF HP=K1 OR MR=K1 THEN GOSUB 1158 
2885 GOTO 2050 

2818 FOR LP=K1 TO 4: GOSUB 18: COLOR KEY 
(LP): PLOT PLX, PLY: NEXT LP:FND=K32 :GOTO 

2600 
2020 FND=K32:X=18:Y=5:FND=42:G0T0 1088 
8 

2838 POSITION (20-LEN (HDS) )/K2,9 : ? tt6; 
HD$:FOR LP=K1 TO 400: NEXT LP: COLOR 32: 
PLOT K2,9:DRAHT0 17,9 :FND=32 :GOTO 2688 
2850 S=STICK(KO): SOUND KO, 18, 8, 8 : SOUND 

K8,K8,K0,Ke 
2188 DX=(S=5 OR S=6 OR S=7)-(S=9 OR S= 
10 OR S=ll) :DY=(S=5 OR S=9 OR S=13)-(S 
=6 OR S=10 OR S=14) 
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2280 X=X+DK:V=Y+DY:H1=H:Y1=V 

2400 COLOR FHD:PLOT X-DX,V-DY 

2450 LOCATE X,Y,FND 

2550 IF FNDOK32 THEM 2900 

2600 COLOR PLR:PL0T X,Y 

2700 TT=TT+K1:IF CMP=K1 AND NAPP=K1 AN 

D TT>G5 AND CM05<4) OR (MR=K1 AND TT>G 

5) THEN TT=KO:GOSUB 1200 

2705 IF NR=K2 THEN RETURN 

2710 IF NOT STRIG(K8} THEN 30300 

2750 IF 5TICKtK0>=15 THEN 2700 

2800 GOTO 2050 

2900 IF FND=161 OR FND=33 THEN X=X-DX: 

V=Y-DY:FND=K32:G0T0 2608 

2910 IF FND=63 THEN ON Q GOTO 2818,281 

0,2028, 2828, 2838:G0T0 2680 

2920 IF FND=MC THEN G05UB 1255: GOTO 26 

08 

2938 IF FNDOK32 THEN GOSUB 3e:S0UND K 

2,K0,K0,K0:G0T0 2600 

3888 IF X<K8 THEN X=19 

3818 IF X>19 THEN X=KO 

3020 IF Y<KO THEN Y=ll 

3030 IF Y>11 THEN Y=KO 

3040 IF X=19 AND Xl=19 THEN X=18 

3858 IF NOT CX OR XI} THEN X=K1 

3068 IF NOT tY OR VIJ THEN Y=K1 

3070 IF Y=ll AND Yl=ll THEN Y=10 

3080 TRAP 3000: RETURN 

3100 IF X>6 AND X<12 THEN H=9 

3110 IF Y=4 OR Y=6 THEN Y=5 

3120 RETURN 

4000 G05UB 250: RESTORE 30010 :V=9 

4045 FOR LP=K2 TO 8 STEP K2:READ WDS:P 

OSITION K1,LP:? tt6;MD:S:NEXT LP: COLOR 4 

:PLOT X,Y:SOUND Kl,20,8,8 

4530 IF NOT STRIGfKO} THEN GOSUB 3238 

8: GOTO SO 

4540 SETCOLOR INT C5KRND CKO) ) , INT C16KRN 

DCKO)}, INT (7»RNDCK0)]«K2: GOTO 4538 

8100 GOSUB 250:C0L0R K32:PL0T 9,11:R=K 

1: GOSUB 12: GOSUB 3108: GOSUB 2000: IF MX 

=X AND MY=Y THEN 2020 

8150 IF HOT Y THEN 9700 

8288 GOSUB 258:C0L0R K32:PL0T 9,K8:G0S 

UB 3180 :R=K2: GOSUB 12: GOSUB 3100: GOSUB 

2888: IF MX=X AND HV=Y THEN 2020 
8258 IF Y=ll THEN 9780 

8380 GOSUB 250: COLOR K32:PL0T K0,5:R=3 
: GOSUB 12: GOSUB 3100: GOSUB 2000: IF HX= 
X AND HY=Y THEN 2020 
8350 IF X=19 THEN 9700 

9788 MR=Kl:G8SUB 250: COLOR K32:PL0T KO 
,5:PL8T 9,K8:PL0T 19,5:PL0T 9,11:R=20: 
GOSUB 12: GOSUB 3100: GOSUB 2000 
9785 IF MK=X AND MY=Y THEN 2828 
9718 IF HOT Y THEN 8280 
9720 IF NOT X THEN 8388 
9748 IF Y=ll THEN 8188 

9888 GOSUB 600:C0L0R K32:PL0T 19,5:R=4 
:MR=K8: GOSUB 12: GOSUB 3100: GOSUB 2000: 
IF NOT X THEN 9700 

10888 HR=K8: GOSUB 100: COLOR GAT: PLOT 8 
,K8:DRAMT0 11, KO :POSITION 7,3:IF VH=K1 

THEN GOSUB 30200: GOSUB 30500 :VH=KO 
10005 IF HRDC=5 THEN GOSUB 32100 
10018 POSITION 10,5:? tt6; "*" : GOSUB 70: 
MP=KO:SOUND K1,KO,KO,KO:GOSUB 2058:IF 
Y=ll THEN 4000 
18828 IF N8T X THEN 9888 
18200 GOSUB 100:C0L0R K32:PL0T S,11:DR 
AMTO 10,11:R=5:G0SUB 12:G0SUB 3100:G0S 
UB 2800: IF NOT X THEN 10008 
18258 IF NOT Y THEN 12000 
10308 GOSUB 700 :R=e: GOSUB 12: GOSUB 288 
e:IF NOT X THEN 10200 

10400 GOSUB 200 :R=7: GOSUB 12: GOSUB 200 
0:IF Y=ll THEN 18380 

10500 GOSUB 800 :R=8: GOSUB 12: GOSUB 288 
0:IF Y=ll THEN 10400 

10608 GOSUB iee:C0L0R K32:PL0T 8,K8:DR 
AHTO 10,K0:R=9:G0SUB 12:G0SUB 3100:G0S 
UB 2000: IF NOT X THEN 10500 
10640 IF Y=ll THEN 20000 
10900 GOSUB 95 :R=18: GOSUB 12: GOSUB 288 
8: IF NOT X THEN 10688 
18948 IF NOT Y THEN 11100 



10950 IF X=19 THEN 11300 

11808 GOSUB 900 :R=ll: GOSUB 12: GOSUB 28 

80: IF N8T Y THEN 18988 

11838 IF X=19 THEN 11200 

11108 GOSUB 400 :R=12: GOSUB 12: GOSUB 20 

00:IF Y=ll THEN 10900 

11200 GOSUB 700 :R=13: GOSUB 12: GOSUB 28 

88: IF NOT X THEN 11000 

11300 GOSUB 1000 :R=14: GOSUB 12: GOSUB 2 

088: IF NOT X THEN 10900 

11340 IF Y=ll THEN 11200 

12000 GOSUB 500:C0L0R K32:PL0T 8,K8:DR 

AHTO 10,Ke:R=15:G0SUB 12:G0SUB 3100:G0 

SUB 2000: IF Y=ll THEN 10200 

12100 GOSUB 600 :R=16: GOSUB 12: GOSUB 20 

00: IF X=19 THEN 12000 

20000 GOSUB 4e0:C0L0R K32:PL0T 8,11:DR 

AMTO 10,ll:R=17:G0SUB 12:G0SUB 3ie0:G0 

SUB 2000: IF NOT Y THEN 10600 

20100 GOSUB 900 :R=18: GOSUB 12: GOSUB 28 

88: IF NOT Y THEN 20008 

20200 GOSUB 500 :R=19 : GOSUB 12: GOSUB 20 

00: IF NOT X THEN 20188 

38808 DATA 255,255,255,255,255,255,255 

,255,126,195,231,153,153,255,165,255,8 

,8,167,165,253,5,7,8 

38805 DATA 0,0,24,60,153,219,255,255 

30010 DATA RECOMPENSE 

30020 DATA SCHEDULE 

30030 DATA GRATUITOUS 

30040 DATA PORRIDGE 

30200 POSITION (20-LENCHDS))/K2,3:? tt6 

;MDS:FOR LP=K1 TO 500: NEXT LP: COLOR K3 

2:PL0T K1,3:DRAHT0 18,3:RETURN 

38300 IF FND=42 THEN 31500 

30305 IF FND045 THEN 2750 

30310 COLOR PLR:PLOT X, V :LX CLL)=X :LIP C 

LLJ =PLH : LL=LL+K1 : PLR=PLRC : FND=42 : X=10 : 

Y=5:C0L0R PLR:PLOT X,Y:G=KO 

30350 IF HOT STRIGCKO) THEN 38358 

38368 GOTO 2758 

38508 FOR LP=K1 TO HD-4 :LXCLP)=K8: LIPf 

LP]=K8:NEXT LP: RETURN 

31500 FOR LP=K1 TO MD-4 :HC=ASC (MD$CLP3 

J : MCX= C20-LEN CMDS) 3 /K2+LP-K1 

31505 LOCATE HCX,3,HC1 

31510 IF HC=UC1 OR MC+K32=HC1 OR UC*]l2 

8=HC1 OR HC+160=HC1 THEM L0K=L0KHHK1 

31515 POSITION MCX,7:? tt6;CHR$CMC] 

31520 NEXT LP:MAPP=KO 

31530 IF LOK^LP THEN MRDCN}=K1 

31540 IF LOK=LP THEN CLP=CLP+K1 :SETCOL 

OR 4,CLP,CLP:S0UND K2,10,CLP,8:IF CLP< 

14 THEN 31548 

31558 IF LOK=LP THEN CLP=KO:SOUND K2,K 

0, KO , KO : SETCOLOR 4 , KO , KO : HRDC=NRDC4K1 : 

GOTO 32010 

32000 HRDfN]=K0:F0R LP=K1 TO 30: SOUND 

K2,58,K2,8:NEXT LP:SOUND K2,K0,K0,K0 

32010 IF STRIGfKO) THEN 32010 

32015 IF HRDC=4 THEN GOSUB 32100:G0T0 

2050 

32020 GOTO 52 

32108 COLOR K32:PL0T 8,K8:DRAHT0 11, KO 

: RETURN 

32288 GRAPHICS 18: POSITION 3,K2:? ttfi:" 

CECElEElCzXE&iaB": POSITION 9,5:? tt6;"@D" 

:POSITION 4,8 

32228 ? tt6;"5TEUE GROLL" :RETURN 

32388 SOUND K1,K8,K8,K8 : GRAPHICS K8:P0 

SITION K2,Kl:? "TYPE E FOR AN EASY GAH 

E.": POSITION K2 3 

32320 ? "TYPE h'fOR A HARD GAME.":? :I 

NPUT DIF$:? :IF DIFS="H" THEN GS=K1:GS 

H=30:G0T0 32330 

32325 GS=4:GSH=70 

32338 ? "MOULD YOU LIKE TO ENTER NEH H 

ORDS IN THE GAME"; :INPUT NH$:IF NHS=" 

N" THEN RETURN 

32335 LIST 30010,38858 

32348 ? :? "TYPE ONE MORD AFTER DATA A 

ND PRESS RETURN ON EACH LINE." 

32358 ? :? "TYPE CON. MHEN READY TO CO 

NTINUE.":END 

32400 RETURN 
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CHECKSUM DATA. 

(see page 8) 

1 DATA 467,338,991,297,633,731,755,412 

, 216 , 711 , 712 , 999 , 863 , 659 , 573 , 9357 

34 DftTA 227,21,788,315,910,34,684,1,93 

5,861,985,326,325,947,431,7782 

74 DftTft 560,726,194,290,307,278,291,36 

9,391,266,650,920,186,923,941,7284 

250 DATA 910,400,413,388,812,814,841,8 

41,739,745,199,206,702,839,788,9637 

1280 DATA 447,783,512,800,523,940,190, 

995,792,592,964,539,721,870,951,10619 

2030 DATA 253,157,194,196,935,782,78,1 

59,37,323,88,637,735,875,536,5985 

2920 DATA 273,584,55,999,44,996,733,87 

3,881,693,58,545,565,788,959,9046 

4045 DATA 290,873,8,418,59,793,903,325 

,913,603,105,64,64,899,880,7197 

10000 DATA 304,173,811,366,822,175,408 

,356,374,965,941,412,178,964,862,8111 

11030 DATA 952,247,838,607,943,109,270 

,41,857,853,911,964,956,783,6,9337 

30040 DATA 805,128,216,161,172,385,975 

,65,427,226, 523 , 730 , 935 , 203 , 536 , 6487 

31550 DATA 369,257,685,467,911,342,233 

,412,45,282,247,169,787,850,834,6890 

32400 DATA 54,54 



WANT 
TO 

SUBSCRIBE? 



It's worth it. 



CALL TOLL FREE 
1-800-345-8112 

In Pennsylvania 

1-800-662-2444 



DOES YOUR COMPUTER 
THNK FASTR THN 
IT CN PRNT? 



Most computers do. That's why they're 
computers and not printers. That's also why you 
need the PRINTER BUFFER from Digital Devices. 

The PRINTER BUFFER accepts information at 
your computer's high speed, stores it (up to 32 
pages at a time), then re-transmits at the slower 
speed required by your printer. So you and your 
computer can go on doing what you do best — 
thinking and working. Instead of waiting. 




The PRINTER BUFFER works with any 
standard "Centronics" parallel computer or 
printer, including Digital Devices' U-PRINT 
printer interfaces for Apple, Atari, and Com- 
modore computers. Available in 16K, 32K or 64K 
models. The PRINTER BUFFER is user-expandable 
in 16K increments. Perhaps best of all, the 
PRINTER BUFFER comes complete with all 
necessary cables, power supply, a comprehen- 
sive user's manual, a one-year limited warranty 
— and a price tag starting at $119.95. 

Call our Toll Free number, (800) 554-4898, 

for the dealer nearest you. 



[Mzna [BUFFiR 



from 



DIGITAL DEVICES §> 

Corporation 



430 Tenth Street, Suite N205 
Atlanta, Georgia 30318 
In Georgia, (404) 872-4430 



1984 by Digital Devices Corporaliun. Apple. Alari, arul Cnmmodore 
are regislered Irademarks of Apple Computers, Inc.: Atari, Inc.: and 
Commodore Fleclronics Ltd. respectively. 
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FLIGHT SIMULATOR II 
SUBLOGIC CORPORATION 
713 Edgebrook Drive 
Champaign, IL 61820 
(217) 359-8482 
48K Disk $39.95 



by Jim Haney 



The sun had just chinned itself on the mountains 
east of my San Clemente home and was chmbing 
strongly, burning away the last vestiges of fog still 
clinging in patches along the ocean's edge. It promised 
a beautiful day — a perfect day for flying, I thought. 

Oceanside, a city midway between San Diego and 
San Clemente, has a private airport, uncrowded and 
without major airlines to contend with, like those at 
John Wayne, Orange County's municipal airport. 

A walk around the plane, a Piper PA-28-181 Archer 
II, revealed that nothing of import had transpired 
since my last flight. A check of the engine compart- 
ment showed that the Lycoming 4, a strong engine, 
was okay for oil, no leaks evident. Although small, 
the Archer is a four-seater and quite comfortable. I 
unlocked the cabin door, and eased myself into the 
pilot's seat. 

A scan of the instrument panel relayed important 
information. Altimeter reading, 28 feet; give it a tap 
or two, to confirm. The magnetic compass indicated 
283 degrees with the plane on the parking apron. 

Reaching over, I adjusted the mixture control and 
snapped the magneto switches to both. A press of the 
starter button was rewarded by the Lycoming's healthy 
roar. It quickly settled into idle at an indicated 650 
RPMs. I watched the oil pressure build and hold mid- 
way on the gauge. While warming up, it was time to 
set both the communications and navigation receivers. 
On my previously-filed flight plan, my intended des- 
tination for the day was Riverside Municipal. 

Reaching over, I adjusted the NAVl to the VOR 
frequency of 112.4, Riverside. That done, I dialed 
COMMl to the ATIS frequency of 126.0. This would 
provide me with communication to the local ground 
controllers and ensure that I wouldn't become an un- 
wanted obstacle for some 747. 

I centered all flight controls, then eased the throt- 
tle up and noted the corresponding rise of RPMs. 
With the plane rolling down the apron, I eased out 
onto the taxiway, heading for the west end of the duty 
(only) runway. 

After centering the aircraft on the black asphalt run- 
way, 1 set the brakes and prepared for last minute ad- 
justments. The magnetic compass indicated a heading 
of 60 degrees, steady I twisted the control feu the trim 
knob of the heading indicator, which employs a gyro, 
until both agreed. Now my attention was diverted to 
the omni-bearing knob, where a course of 345 was 



dialed in. I was immediately greeted with the readout 
of the distance measuring equipment (DME) — 64.2 
nautical miles to my destination. 

A quick scan of the instrument panel again showed 
all to be in order. Both wing tanks were full, and the 
indicator showed fuel flowing from the right tank. 

Easing the throttle forward to full, I watched as the 
RPMs came up to an indicated 2450. Minor correc- 
tions of the rudder pedals kept the plane tracking 
down centerline as the airspeed indicator rose to 40, 
45, 50. At an indicated aif speed of 55 knots, I eased 
back on the yoke. The nose pitched-up, and the run- 
way began to fall away. 




Flight Simulator II. 

Once again, I had slipped those surly bonds. The 
plane was climbing out smoothly, requiring almost no 
correction input from me. Still on a heading of 60 
degrees magnetic and climbing out through 1500 feet, 
1 retracted the flaps. 

Lowering the RPMs to 1950, 1 climbed at a rate 
of about 500 feet per minute. The omni-bearing devi- 
ation indicator needle showed that it was time to be- 
gin a sweeping left turn. 

1 mentally plotted an intercept course of 330, which 
would bring me to a heading of 345 degrees. I rotated 
the yoke to the left. A slight press of the left rudder 
pedal in conjunction with a gentle tug of the yoke, 
and the aircraft was in a 30 degree left bank, neither 
gaining nor losing altitude. As the world wheeled be- 
low me, I glanced out to see the Pacific gleaming in 
the distance, under a blue and cloudless sky. As I 
maneuvered the aircraft onto the intercept course, the 
San Bernardino mountains loomed ahead. 

This flight, friends, occurred in my living room. 
The magic utilized was my Atari computer and sub- 
LOGIC's fantastic new program Flight Simulator II. 

Yes, the entire flight was one of fantasy. Since that 
first advertisement of subLOGlC's impending release 
of FS2, I couldn't wait to get my hands on it — and 
I wasn't disappointed! The documentation of this pro- 



ISSUE 27 



ANALOG COMPUTING 



PAGE 59 



gram is the best this author has seen. The colorful 
package only hints at the adventure awaiting within. 
Two disks comprise the media of FS2. One con- 
tains the core programs for both 48 and 64K equipped 
Ataris, scenery data for Chicago, and the WWI game, 
Ace. If there was any disappointment, it was find- 
ing that, with only 48K, I couldn't load or run the 
reality mode. You must have 64K to do this. Does 
this leave you with only a partially-executable pro- 
gram? Hardly. 

With 48K, you fly in the "easy mode." Having 
never had one flying lesson, I made many holes 
around the central portion of Illinois prior to award- 
ing myself a set of wings. I can now comfortably take 
off from the Champaign airport, hop over to 
Bloomington, and then fly on up to Kankakee for 
fuel — all without plowing some farmer's field! 

Four area flight charts are furnished on two separ- 
ate sheets. One depicts the New York, Boston area 
with Chicago to Champaign portrayed on the reverse. 
The other shows the Los Angeles area from north 
of Fillmore VOR, west to Riverside and south to San 
Diego. The reverse of this chart reveals the Seattle 
area, with some twenty airports from which to take 
off and land. 

FS2 is also replete with two comprehensive manu- 
als. One, the Pilot's Operating Handbook and Air- 
plane Flight Manual, consists of 90 pages, including 
11 pages of appendices devoted to descriptions of the 
aircraft, flying characteristics and program specifica- 
tions. This booklet and the FS2 flight reference card 
are essential reading prior to any flight. Also includ- 
ed is a 92 -page booklet on flight physics and aircraft 
control. This provides an introduction to advanced 
aerobatics, so very necessary to stay alive in the WWI 
air ace game. 

The simulator and game may be flown utilizing two 
joysticks or the keyboard of your Atari. I prefer one 
joystick for primary flight controls, elevator, ailerons/ 
rudder, and keyboard input for other necessary func- 
tions, such as engine RPMs, etc. 

Upon booting, you'll find yourself at Meigs Field, 
Chicago. The John Hancock building stands to your 
left front. To practice takeoffs and landings, en- 
hanced visual aids can be employed by entering the 
editor and punching up mode 8. This greatly aids first- 
time flyers and transfers you to the airport located 
at Champaign, Illinois. 

Your radios, both COMMl and NAVl, will be 
automatically set to the required frequencies. Takeoffs 
are performed fairly easily if the basic guidelines of 
the manuals are followed. Landings, however — until 
you get the hang of utilizing flaps in conjunction with 
throttle and elevator, and performing maneuvers 
while on the reverse side of the power curve — tend 
to be rather abrupt! 

The second disk contains scenery information for 
the Seattle/Los Angeles area. The promise of sub- 



LOGIC indicates that additional scenery disks will 
be made available to encompass other areas of the 
U.S. How about Denver for starters? Also, let's hope 
that consideration is made for those of us with multi- 
drive systems. 

A visit to the local flying club, at the Marine Corps 
Air Station in El Toro, California, provided my first 
view of the actual aircraft in which I'd already spent 
many engrossing hours. With the field attendant's 
permission, I was allowed to examine the aircraft. 

I was amazed at the accuracy with which 
subLOGIC had portrayed the instruments. All 
primary flight instruments were almost exact; I real- 
ly had the feeling that, with very little instruction, 
I could fly this airplane. Minor changes had been 
made to accede to the computer's requirements. 

The clock portrayed by FS2 is digital, as is its RPM 
indicator. The magnetic compass resides in the dash, 
not as portrayed, on top, in FS2. These differences 
were all technicalities. The beauty of this program 
is that I felt as if, with a qualified instructor, I could 
start and fly this aircraft! 

1 hope I've pricked your imagination with this re- 
view. If so, run, don't walk, to your nearest dealer. 
Plunk your hard-earned dollars down for your copy 
of subLOGIC's Flight Simulator II. I'll be waiting 
at 6000 feet, on my way to Riverside. D 



RENT 



ALSO 

Apple — Commodore 

Software 

Rentals & Sales 



ATARI 



BUY 



Dust Covers 
Disk Banks 
Hint Books 



ATARI PROGRAMMING AIDS 



EDU MATE 



Light Pen . . . 
Coloring Book 



TRICKY TUTORIAL SERIES 



No. 
No. 
No, 
No. 
No. 
No. 
No. 
No. 
No. 



Mixing Graphics & Text Modes 
Horizontal/Vertical Scrolling . 

Page Flipping 

Basics of Animation 

Player Missile Graphics 

Sound & Music 

Character Graphics 

GTIA Graphics 

Sam Tutorial 



Graphic Generater , . . 
Graphics Magician . . . 

Micro Painter 

Movie Maker 

Music Construction Set 
Arcade Machine . . . . 



A.N.A.L.O.G. Compendium Magazine on disk —rent , 
A.N.A.L.O.G. Computing on disk — rent 



$17.97 
$17.97 



$17.97 
$17.97 
$17.97 
$17.97 
$21.50 
$17.97 
$17.97 
$17.97 
$17.97 

$23.47 
$33.56 
$29.97 
$37.73 
$33.60 
$46.76 

$10.00 
. $ 5.00 



Call toll-free outside Texas: 1-800—433-2938 
- Inside Texas call: 817-292-7396 

WEDGWOOD RENTAL 

5316Woodway Drive 
Fort Worth, Texas 76133 
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ATARI™ USERS 

WE SPECIALIZE IN BACKUP HARDWARE AND SOFTWARE 

"We are the Backup Experts" 



^24^ 

THOURl 

rSHIPPING^ 



NEW PRODUCT 
The DOWNLOADER 

For The ATARI 835 Modem" 

Al lasl. a program ihal will allow you lo 
download Binary and Basic dies with the 
new 835 Modem, no interlace needed 
You can save ttiese files lo disk, printer or 
cassette Bui Best 01 All you will be able 
to download games from bulletin boards 
with ouf software and the 835 Modem 



$34 



95 



' 2 50 Shipping 



THE BOOK 
WITH SOFTWARE 

Software protection and code cracking 
techniques MASTER CODE 
CRACKER REVEALS ALL 
In this book you will find out how the 
software is protected and ways to 
protect your software Copy guarding 
will be covered m detail on disks, 
cartridges and tapes and hardware 
tricks You will also receive a disk with 
many programs and examples 
BOOK WITH SOFTWARE ONLY 



$24 



95 



> 2.50 Shipping 



ATARI" & BIO ARE TRADEMARKS Of- ATAHI 



835 & 1030 MODEM BULLETIN BOARD 

This BBS Bulletin Board system will run on any ATARI Home Computer 
including the XL. No costly interface needed. All you will need is an 835 or 1030 
Modem and any disl< drive {printer optional). Auto Answer feature will allow you 
lo leave the BBS running unattended. This BBS has over25 functions including: 
XMODEM Upload/Downloading, User Passwords, Full Function Message Base 
plus many more features. 

This package comes on a double sided disk, full documentation included plus a 
fully assembled and tested ring detector. Nothing else will be needed. BBS 
software and ring detector: » 



All For Only $74^^ 



t2.60 Shipping 



THE SUPER TRANSLATOR 

For The ATARI 800XL 
A MUST FOR THE NEW BOOXL 

Many programs written for ttie old ATARI 800 Computer will not run on the new 
800XL. With the SUPER TRANSLATOR you will be able to run 40% more 
software. The SUPER TRANSLATOR comes on disk as a file. Order now and 
receive FREE a DOS Patch File. This will relocate ATARI DOS in the unused 16K 
of memory. You will now have the entire DOS in RAM. No need to access the disl< 
when you call DOS. 



The HACKER'S 
TREASURE CHEST 

On Disk 
18 Utility Programs on disk. These 
programs are designed to aid you m 
copying software for your backup 
collection. You will be able to copy disks, 
cartridges and cassettes. Any one 
program is worth the price of all 18. It has 
taken us overone year to put together this 
fine collection on the Hacker's Treasure 
Chest disk. Some of the programs you 
will receive are: Cartridge Copy, Bootape 
Maker, Tape to Disk. SeclorCopy. The 
Unprolector, Sector Disassembler. Bad 
Sector Finder, Modem Program plus 
more. All ol these programs plus 10 more 
on this disk. You will also receive a menu 
thai will run basic and binary files just by 
typing the number of the program. Any 
file on any disk will load automatically 
from Ihis menu. ALL FOR ONLY 
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95 



* 2.50 Shipping 



All For 



$14 



95 



+2.50 Shipping 



TheTRANSFERPACK 

FOR BACKING UP AND TRANS- 
FERRING YOUR SOFTWARE 

1) Disk lile to tape 

2) Bool tape lo disk file 

3) Tape to tape (mulli & single stage) 

VERY POWERFUL and low priced 
Programs are in machine language 
and user friendly ALL 3 FOR ONLY 

$OJ95 

^^w . 2.50 Shipping 



PHONE ORDtRS 

(516) 467-1866 

PRODUCT INFO 

(516) 588-6019 



GARDNER COMPUTING COMPANY Z;:t^z^:::::L:::::.. 

P.O. BOX 388, HOLBRooK, N.Y. 11741 fpJSii^i crir:;;";;::. 

IVe are working on New Products and Software - CALL lo cu ar tiLion siiipiJinq i 
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YOU CANT TELL 

A DISK DRIVE 

BY ITS COVER!! 



WITH A HAPPY ENHANCEMENT INSTALLED THESE ARE 
THE MOST POWERFUL DISK DRIVES FOR YOUR ATARI COMPUTER 

WARP SPEED SOFTWARE DISK READING AND WRITING 500% FASTER 





HAPPY BACKUP — Easy to use backup of even the most heavily protected disks 

HAPPY COMPACTOR — Combines 8 disks into 1 disk with a menu 

WARP SPEED DOS - Improved Atari DOS 2. OS with WARP SPEED reading & writing 

SECTOR COPIER — Whole disk read, write and verify in 105 seconds 

1050 ENHANCEMENT — Supports single, 1050 double, and true double density 

810 ENHANCEMENT — Supports single density 

SPECIAL SUGGESTED RETAIL PRICE: Get the HAPPY ENHANCEMENT 810 or 1050 version with the HAPPY BACKUP PROGRAM 
plus the multi drive HAPPY BACKUP PROGRAM, plus the HAPPY COMPACTOR PROGRAM, plus the HAPPY DRIVE DOS plus the 
HAPPY SECTOR COPY, all with WARP DRIVE SPEED, including our diagnostic, a $350.00 value for only $249.95, for a limited time only! 
Price includes shipping by air mail to U.S.A. and Canada. Foreign orders add $10.00 and send an international money order payable through a 
U.S.A. bank. California orders add $16.25 state sales tax. Cashiers check or money order for immediate shipment from stock. Personal checks require 
2-3 weeks to clear. Cash COD available by phone order and charges will be added. No credit card orders accepted. ENHANCEMENTS for other 
ATARI compatible drives coming soon, call for information. Specify 1050 or 810 ENHANCEMENT, all 1050s use the same ENHANCEMENT 
Please specify -H model for all 810 disk drives purchased new after February 1982, call for help in 810 ENHANCEMENT model selection. Dealers 
now throughout the world, call for the number of the dealer closest to you. 

HAPPY COMPUTERS, INC. 



ATARI is ri ruyistf red liademark of Atari CoininilLT liv 



P. O. Box 1268 



Morgan Hill, California 95037 



(408) 779-3830 
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Boot 
Gamp 




by Tom Hudson 



In this installment of Boot Camp, we continue our 
work with BASIC USR calls, in order to become more 
familiar and comfortable with the 6502 instruction set. 

It's about time. 

The first USR call we'll look at this time is a sim- 
ple timer. Timer programs are easy to write on Atari 
computers, because, inside each one, is a real-time 
clock. It doesn't have any hands, but you can write 
a program to read it. 

The Atari's real-time clock is found in three mem- 
ory locations: 18, 19 and 20 ($12, $13 and $14). The 
clock itself is updated by the system's vertical blank 
interrupt (VBI) code, which is executed sixty times 
per second. Each l/60th of a second is known as a 
jiffy. Each time the VBI code is executed, the byte 
at location $14 is incremented. When this value gets 
to 255, it is set to zero, and location $13 is incre- 
mented. When location $13 reaches 255, it is set to 
zero and location $12 is incremented. 

In order for you to see exactly how this timer oper- 
ates, type in the BASIC program shown in Figure 1 
and RUN it. 

As you can easily see, this program simply prints 
the contents of memory locations 18, 19 and 20 to 
the screen. You can actually watch each location be- 
ing modified by the VBI routines. Note that location 
20 takes roughly 4.25 seconds to go from 0-255 (256 
* l/60th of a second). Locations 19 and 20, which 
together make up a 2 -byte counter ranging from 0- 



65535, take roughly 1092 seconds, or 18.2 minutes, 
to go from 0-65535. All three locations, making up 
a 3 -byte counter ranging from 0-16777215, take about 
77.6 hours to go from 0-16777215. I don't recommend 
leaving your computer on long enough to test this 
principle; just take my word for it. 

10 PUKE 752,l:P05ITI0N 2,0:PRINT PEEK ( 
18};" "jPEEKCl^};" ■';PEEKC28J;" ":GOT 
10 

Figure 1. 

Now that we know how the internal real-time clock 
works, let's write a USR call that will take advantage 
of it. This program will allow us to pass a value in 
jiffies from BASIC, ranging from 0-65535, that will 
make the computer wait that exact period of time. 

This is actually a very simple routine. All we need 
to do is set the two low-order bytes of RTCLOK (real- 
time clock) to zero and wait for them to reach the 
jiffy count that BASIC asked for. The flowchart for 
this program is shown in Figure 2. 

One thing important to note about the real-time 
clock bytes is that they are not ordered in memory 
from low- to high-order. Instead of RTCLOK contain- 
ing the low-order value, RTCLOK+2 has it. In the 
same manner, RTCLOK contains the highest-order 
byte, not RTCLOK+2. This is one of the few cases 
where the low-order, high-order custom is broken, so 
keep this in mind when working with RTCLOK. 

All right, now that we know what must be done, 
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let's write the 6502 code to do the job. Figure 3 shows 
one way to handle the timer. 



PULL AND SAVE 
JIFFY COUNT 



ZERO OUT: 
RTCLOK + 1 
RTCLOK + 2 




Figure 2. 



oiee 


HAUL 


- 


$CB 




eiie 


HAITH 


— 


Sec 




6120 


RTCLOK 


~ 


S12 




ei3e 




»= 


$0600 




0140 




CLD 




; CLEAR DECIMAL 


0150 




PLA 




.-DISCARD ttARG5 


0160 




PLA 




;PULL HAIT HI 


0170 




5TA 


HAITH 


;AND 5AUE IT 


0180 




PLA 




;PULL HAIT LO 


0190 




5rA 


HAITL 


;AND SAME IT 


0200 




LDA 


no 


JZERO OUT. . . 


0210 




5TA 


RTCLOK+1 ; CLOCK BYTE 2 


0220 




5TA 


RTCLOK+2 ;CLOCK BYTE 3 


0230 


HAITLP 


LDA 


RTCLOK+1 ;GET CLOCK HI 


0240 




CMP 


HAITH 


;= HAIT HI? 


0250 




BNE 


HAITLP 


:N0. LOOP BACK! 


0260 


HAITL2 


LDA 


RTCL0K«2 ;GET CLOCK LO 


0270 




CMP 


HAITL 


;= HAIT LO? 


0280 




BNE 


HAITL2 


;N0, LOOP BACK! 


0290 




RT5 




;HAIT'S OUER! 



Figure 3. 

Let's walk through the timer code and see what's 
going on. 

Line 140 clears the decimal mode. This isn't 
necessary in this program, since we're not doing 
any addition or subtraction, but let's get into the 
habit of using this instruction. 

Line 150 pulls the number of arguments from 
the 6502 stack. This number is assumed to be 
1, and we're going to simply discard it. 



Lines 160-170 pull the high byte of the jiffy 
count off the stack and store the value in the 
location WAITH. We'll use this location to test 
for the end of the timer period. 

Lines 180-190 pull the low byte of the jiffy 
count off the stack and store it in WAITL. This 
location will also be used to test for the end of 
the wait period. 

Lines 200-220 zero out the two low-order 
bytes of RTCLOK. Remember, the lowest-order 
byte is RTCLOK+2, and the middle-order byte 
is RTCLOK+1. This operation starts the timer 
at zero, and we can now waiting for the timer 
to reach the jiffy count specified by BASIC. We 
will compare each byte of the jiffy count with 
the corresponding byte of the real-time clock. 
When these bytes match, the wait is over, and 
we can return to BASIC. 

Line 230, labeled WAITLP (wait loop), loads 
the middle-order byte of RTCLOK into the accu- 
mulator. We can now compare it to WAITH. 

Line 240 compares the accumulator to the 
value in WAITH. 

Line 250, a BNE instruction, will branch over 
to WAITLP if the accumulator is not equal to 
WAITH. If these bytes are equal, we need to 
compare the low-order bytes, and the program 
continues at the next instruction. 

Line 260, labeled "WAITL2" (wait loop 2) 
loads the low-order byte of RTCLOK into the 
accumulator, and we're ready to compare the low- 
order bytes. 

Line 270 compares the accumulator to the 
value in WAITL. 

Line 280, another BNE instruction, branches 
back to WAITL2 if the accumulator is not equal 
to WAITL. If the branch is taken, the program 
will continue at WAITL2, waiting for the low- 
order bytes to match. If the bytes are equal, then 
the wait is over, since the high-order and low- 
order bytes are the same. 

Line 290 is executed when all the timer values 
match. This RTS statement simply returns con- 
trol to BASIC. 

You can try the timer routine for yourself Figure 
4 shows the BASIC code necessary to set up and call 
the USR subroutine. 

10 FOR X=153e TO 15e2:READ N:POKE X,M: 

NEXT X:TIMER=1536 

20 TRAP 20:? "ENTER JIFFIE5 TO HAIT";: 

INPUT HAIT: TRAP 40000 

30 ? "HAITING. . ." 

40 A=U5RCTIMER,HAIT} 

50 ? "QTIME'5 UP!":? 

60 GOTO 20 

108 DATA 216,104,104,133,204,104,133,2 

SIilS2A®ii2=^Al^'J^"A2«'"5,19,197,204, 

208,250,165,20,197,203,268 

110 DATA 258,96 

Figure 4. 
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Line 10 READs the assembly-language data 
in Lines 100-110 and POKEs them into memory, 
starting at location 1536 ($0600). Since the timer 
code is relocatable, you may place it in a BASIC 
string and call it that way, if you like. 

Line 20 accepts the number of jiffies to wait 
from the keyboard, placing the value in the vari- 
able WAIT. You should limit this value to the 
range 1-65535, for a wait of from l/60th of a sec- 
ond to 18.2 minutes, lb wait exactly one minute, 
you should type 3600 (60 seconds times 60 jiffies 
per second). 

Line 30 prints a message to let you know when 
the time period starts. 

Line 40 calls the USR routine with the state- 
ment: 

A=U5RCTIMER, HAITI 

Note that, instead of using 1536 as the USR code 
address in the USR call, we have used the vari- 
able TIMER, which was set to 1536 in Line 10. 
This is a good practice, since it helps document 
what the USR call is doing. This can be very 
helpful later, when you need to change the pro- 
gram for some reason. 

Lines 50-60 cause the console speaker to beep, 
print a "time's up" message, and return to Line 
20 to accept another time period. 

Lines 100-110 contain the numeric data values 
which, when POKEd into memory, make up the 
timer USR subroutine. 

After you have typed in the program, RUN it. The 
program will ask: 

ENTER JIFFIES TO HAIT? 

Type 60 and press RETURN. The computer should 
wait one second, beep, and print: 

TIME'S UP! 

See? When you typed 60, BASIC told the USR sub- 
routine to zero out the real-time clock and wait until 
it counted 60 jiffies. If you type 65535, the computer 
will wait 18.2 minutes before it beeps. 

This routine can be very handy in almost any pro- 
gram which requires several time delays. You probably 
won't use any time periods over a couple of minutes, 
but the program can handle it if the need arises. 

PEEKing Tom? 

How many times have you wanted to know the 
value stored in a 2 -byte data item? For example, if 
you want to know where the display list begins, you 
must type: 

DLISTnPEEK (560J +PEEK C561J*256 

If you have to do this a dozen times in a single pro- 
gram, each time with a different address, it can be 
a real pain — as well as use up memory. 

Well, why not write a USR call that will do this 
tedious work for you? It's simple and only takes 20 
bytes of memory space. 



We'll call the USR function "DPEEK," for double- 
byte PEEK. It will be set up so that, when the user 
furnishes the address of the first byte of the 2 -byte 
value, the USR call will return the value contained 
in the 2 bytes. 

This will be the first time we've used post-indexed 
indirect addressing, but don't get nervous. It's actu- 
ally not as bad as it sounds, and is a very handy func- 
tion of the 6502. 

As you will recall, post-indexed indirect addressing 
uses 2 bytes on page (the first 256 bytes of memory) 
to form an address. It then uses the Y register to get 
an offset from this address. Let's look at an example. 

Let's say the computer wants to execute the instruc- 
tion: LDA (ADDR),Y. The location ADDR must be 
on page (this is a restriction of the 6502). Assume 
that location ADDR contains $4F, and ADDR+1 
contains $60. The computer will form the address 
$604F from these 2 bytes, then add the Y register to 
this address. Assuming the Y register contains $06, 
the final address will be $6055, the total of $604F 
+ $06. Therefore, the accumulator will be loaded from 
location $6055. Get it? 

What we'll do in this USR call is pass an address 
to the subroutine. The subroutine will store the ad- 

(continued on next page) 



PARTS/SERVICE FOR ATARI* COMPUTERS 

ORIGINAL FACTORY PARTS FOR 

800/400, 819, 820, 850. 

UPGRADE TO GTIA. 48K AND REV. B OPERATING SYSTEM 

CUSTOM 810 DISK DRIVES. . .$215.00 



INTEGRATED 
CIRCUITS FOR 800/400 

GTIA Chip , 

upgrade with instructions $11.50 

10K Rev, B OS Upgrade. . 

3-Chip ROIvl set with instructions, . , $12.50 

Pokey Chip. . C012294 S8.50 

Antic Chip .C012296 $10,50 

PIA Chip . .C014795 $11.00 

Basic ROM set $15.00 

MODULES/CIRCUIT 

BOARDS. . .complete with IC's 

16K RAM Memory Module. . . 

CX853 $22.50 

800 10K Rev. B OS Module S18.50 

800/400 CPU Board with GTIA $22.50 

800 Main Board $28.50 

400 Main Board S26.50 

400 Main Board w/o ICs $8.50 

800 Power Supply Board $10.50 

810 Dala Separator Board, , . 

upgrade with instructions $22.50 

810 Side Board w/o Sep. & 1771 $43,50 

810 Rear Power Board $25.00 

810 Analog Board Si6,00 



BOARD SETS. 
BUILD YOUR OWN 
COMPUTER, 
DISK DRIVE 



. . $72.50 
.$122.50 
. .$46.50 



800 .OK 

800, , ,48K 

400, OK 

810 Board Set $110,00 

All Boards complete with ICs, elc. 

Keyboards not included 

Overseas customers ask lor PAL price list. 



MISC. 



810 Rear Board/Analog Board Upgrade. . 
with 10-pin jumper 

and instruc:ions S39.50 

Editor Assembler $25.00 

BASIC Cartridge. . 

w/o Case, Manual $23.50 

Cartridge Circuit Boards $4,00 

Non-Atari' Cartridge Boards $2,00 

Replacement 810 Drive Mech $90,00 

Replacement Power Transformer . $16,50 



AMERICAN TV 

415-352-3787 

Mail Order Address 15338 Inverness St., San Leandro, CA 94579 

Retail Store 1988 Washington Avenue, San Leandro, CA 94577 

Terms: We accept money orders, personal checks or CO,D,s. . .VISA. MasterCard okay on orders 
over S25,00. No personal checks on C,0,D. 

Shipping: $4,00 shipping and handling on orders under $150,00. Add S2.00 for C.O.D, orders, Cali- 
fornia residents include 6V2% sales tax. Overseas stiipping extra. 

Prices subject to change v/ilhoul notice. We reserve the right to limit quantities. Sales limited to 
stock on hand, AK, HI FPO-APO, add $5,00 on all orders. 

Much more! Send SASE for free price list. 
Repair/upgrade services available. .Call, "Atari is a registered trademark of Atari Corp. 
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dress on page and indirectly load the byte at the 
address (the low byte of a 2 -byte value) and the byte 
at the address + 1 (the high byte of a 2 -byte value). 
The decimal equivalent of this number will be re- 
turned to BASIC. The flowchart of this procedure 
is shown in Figure 5. 



PULL DPEEK 

ADDR., STORE 

ON PAGE 



PUT ZERO IN 
Y REGISTER 



LDA (ADDR),Y 
(GET LOW BYTE) 



STORE IN 

BASIC RESULT 

LOW BYTE 



INCREMENT 
Y REGISTER 



LDA (ADDR),Y 
(GET HIGH BYTE) 



STORE IN 

BASIC RESULT 

HIGH BYTE 



@ 



Figure 5. 

Now let's look at the 6502 assembly code corre- 
sponding to the flowchart. It's relatively short and easy 
to follow. This code is shown in Figure 6. 



eioo 


PEEKL 


- 


SCB 


one 


PEEKH 


— 


Sec 


0120 


RESLO 


— 


$D4 


0130 


RESHI 


— 


$D5 


0140 




»= 


$0600 


0150 




CLD 




0160 




PLA 




0170 




PLA 




0180 




STfl 


PEEKH 


0190 




PLA 




0200 




5TA 


PEEKL 


0210 




LDY 


no 


0220 




LDA 


(PEEKL) 


0230 




5TA 


RE5L0 


0240 




INY 




0250 




LDA 


(PEEKL) 


0260 




5TA 


RE5HI 


0270 




RT5 





; CLEAR DECIMAL 
; DISCARD HARGS 
;PULL PEEK HI 
;AND SAVE IT 
;PULL PEEK LO 
;AND SAVE IT 
;Y REG = 
,Y ;GET LO BYTE 
;AND SAVE IT 
;Y REG NOW = 1 
,Y ;GET HI BYTE 
;AND SAVE IT 
;ALL DONE! 



Figure 6. 

Lines 100-110 set up equates for 2 bytes on 
page 0. Remember that BASIC only allows us 
to use page locations $CB-D1; using other ad- 
dresses could prevent the subroutine from work- 
ing properly — or even lock up the system. Note 
that these bytes are stored in low-byte, high-byte 
order. This is a must for indirect addressing. 



Lines 120-130 set equates for RESLO and 
RESHI, the storage locations which will return 
the subroutine's result to BASIC. For further in- 
formation on these bytes, see issue 25's Boot 
Camp. 

Line 140 sets the program counter to $0600, 
placing this program on page 6. This subroutine 
will be relocatable, though, so the address really 
doesn't matter. 

Line 150 clears the decimal mode, placing us 
in binary mode. This program doesn't do any 
math, but let's get into the CLD habit, okay? 

Line 160 starts the subroutine's operation by 
pulling the number of arguments off of the stack. 
Assume the programmer has only sent one argu- 
ment, the address the subroutine is to DPEEK 
at. After being pulled off the stack, this value 
is discarded. 

Lines 170-180 pull the high byte of the ad- 
dress to be DPEEKed off the stack and store it 
in its page location, PEEKH. 

Lines 190-200 pull the low byte of the address 
to be DPEEKed off the stack and store it in its 
page location, PEEKL. At this point, the pro- 
gram has set up its indirect memory pointer and 
is ready to perform the DPEEK operation. 

Line 210 places a zero in the Y register. All 
post-indexed indirect instructions use the Y reg- 
ister to calculate an offset from the address used, 
and, since we want to load the first byte from 
the address in PEEKL and PEEKH with no off- 
set, the Y register must be zero (no offset). 

Line 220 loads the accumulator indirectly from 
the address in PEEKL and PEEKH. Since we are 
loading the first byte of the 2 -byte value, this 
is the low order byte of the DPEEK value. 

Line 230 stores the value just loaded into RES- 
LO, the low-order byte of the result to be re- 
turned to BASIC. 

Line 240 increments the Y register, changing 
it from to 1. In this way, we're now ready to 
retrieve the second byte of the DPEEK value, be- 
cause a 1 in the Y register will cause the indirect 
load to get the byte from the address in PEEKL 
and PEEKH + 1. 

Line 250 loads the accumulator indirectly from 
the address in PEEKL and PEEKH + 1. This is 
the high order byte of the DPEEK value. 

Line 260 stores the high order byte of the 
DPEEK value in RESHI, so that it can be re- 
turned to BASIC. 

Line 270 executes an RTS instruction to re- 
turn control to BASIC. At this point, RESLO 
and RESHI contain the value that was DPEEKed 
out of the address passed to the subroutine by 
BASIC. 

The BASIC code for your DPEEK subroutine is 
shown in Figure 7. 
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10 FOR K=1536 TO 1555: READ N:POKE X,N: 

NEXT X:DPEEK=1536 

20 TRAP 20:? "ENTER DPEEK ADDRESS";: IN 

PUT ADDRESS: TRAP 40000 

30 ArUSRCDPEEK, ADDRESS! 

40 PRINT A 

50 GOTO 20 

100 DATA 216,104,104,133,204,104,133,2 

03,160,0,177,203,133,212,200,177,203,1 

33,213,96 

Figure 7. 

Type in this short BASIC program and RUN it. 
When asked for a DPEEK address, type 88 and press 
RETURN. The program will print a number and ask 
for another DPEEK address. 

The number printed by the subroutine is the value 
PEEK(88) + PEEK(89) * 256. To confirm this, stop 
the program by pressing BREAK and type: 

PRINT PEEK 188) 4PEEKC89)«256 

The number printed by this statement when you 
press RETURN should match the one printed by the 
DPEEK function. If not, you probably mistyped one 
or more DATA values in Line 100. 

What did we DPEEK? The addresses 88 and 89 are 
known as "SAVMSC." These bytes point to the first 
byte of screen memory. To prove this, POKE a i into 
the address printed by the DPEEK subroutine. For 
example, if the DPEEK routine printed 40000, you 
would enter: 

POKE 40000,1 

You should see an exclamation point (!) at the up- 
per left corner of your screen. The exclamation point 
is represented in screen memory by the number J, 
so that's what shows up. See how handy the DPEEK 
function is? 

You can easily find out where the display list is by 
DPEEKing SDLSTL (560). To find where the DOS 
vector is pointing, DPEEK DOSVEC (10). You can 
use the DPEEK function to find the contents of any 
2 -byte pointer that is in standard low-byte, high-byte 
format. 

To summarize, the DPEEK subroutine uses a value 
passed to it by BASIC to point to a location in mem- 
ory. The contents of this location and the location + 1 
are used to build a 2 -byte value which is passed back 
to BASIC. Figure 8 shows a pictorial representation 
of this function. 



FROM 
BASIC 
24576 - 
($6888} 



PAGE ZERO 



$6888 



RE5ULT 
LO HI 



12 9B 



12 



9B 



TO 
BA-SIC 
-•» 39698 
C$9B12J 



Figure 8. 

I'm sure most of you programmers out there will 
appreciate the DPEEK function. It makes the opera- 
tion of checking pointers a lot easier. 

Homework time. 

Now that I've shown you an example of indirect 
addressing, it's time for you to try one of your own. 



The assignment: write a companion subroutine for 
DPEEK that will perform a DPOKE function. That 
is, the subroutine accepts two arguments — the address 
to DPOKE and the value to by DPOKEd into the 
address. The function is very similar to the DPEEK 
operation, except that the program stores the second 
argument's bytes into the address and address + 1, in- 
stead of reading them and returning them to BASIC. 

After you code the program, verify that it is oper- 
ating correctly by using the DPEEK function. For ex- 
ample, if you DPOKE address 1776 with a value of 
65245, the DPEEK of address 1776 should return 
65245. 

Until next time, try coding this problem. Use the 
DPEEK routine as a guide, since its operation is very 
similar. If you have any problems, remember that you 
can contact me via the Atari SIG on CompuServe. 
My user ID is 70775,424. If you don't have a modem, 
you can write the address below. D 



Boot Camp 

c/o ANALOG Computing 

RO. Box 23 
Worcester, MA 01603 



ATTENTION 

USER 
GROUPS 



With the reorganization of Atari, we feel that 
the knowledge and support provided by Atari 
user groups are needed now more than ever. 
We are now compiling a detailed article on 
user groups, with emphasis on the larger clubs 
— those with an extensive member base, news- 
letter, activities and, possibly, a BBS. If your 
group has not yet received our questionnaire, 
you may not be on our listing. We do want to 
be thorough, so please send your group's name 
and address to: 

ANALOG Computing 

Attn: Lee Pappas 
RO. Box 23 
Worcester, MA 01603 
(617) 892-9230 




ABBY'S CARRIES A FULL SELECTION 

OF SOFTWARE FOR YOUR ATARI. 

CALL FOR CURRENT PRICES. 

ASK FOR FREE CATALOG. 



s 



V* rruke Uomlng fun 



ElEilSS 




Trains (D) $29 

Fraction Fever (R) $26 

Up For Grabs (R) $29 

Snooper Troops 

I, II (D) ea. $29 

Facemaker (R) $26 

Jukebox (R) $29 

In Search of The Most Amazing Thing (D) $29 

Aerobics (D) $33 

ALL OTHER TITLES AVAILABLE. CALL FOR PRICE. 

ASK ABOUT SPINNAKER'S TRILLIUM, FISHER PRICE, 
AND WYNDHAM CLASSICS TITLES. 



inFocom 

DON'T PANIC! 

ALL INFOCOM TITLES ARE 

AVAILABLE FROM ABBY'S. 

CALL FOR PRICES. 



Hitchhiker's Guide to the Galaxy (D) CALL 

Zork 1, II, 111 (D) ea. $29 

Cutthroats (D) $35 

Sea Stalker (D) $35 

Star Cross (D) $35 

strategy GamestorcneActlonGsmePtayer 

Temple ol Apshai (Dl ICI $29 

Curse o( Ra (Dl ICI $17 

Dragonriders of Pern (D) $29 

Gateway to Apshai (R) $29 

Jumpman (D) (CI 529 

Jumpman Jr. (R) $29 

Pitstop IRI $29 

Pitstop II IR) $29 

World's Greatest Baseball Game (D) $29 

CALL FOR INFO AND PRICES ON OTHER EPYX TITLES. 
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We Stock A Complete Line Of 

Software From Other Fine Makers 

ACCESS DATASOFT 

Raid Over (Moscow (D) . . . . $27 Bruce Lee (C & D) $25 

Scrolls o( Abadon (D) $27 Zaxxon (D) (C) $29 

Beachhead (D) $27 Dallas Quest (C & D) $25 



ELECTRONIC ARTS 

Archon (D) $29 Pinball Construction Set ID) $29 

Archon II: Adept (D) CALL The Realm of Impossibility (D) $29 

One On One (D) $29 Seven Cities of Gold (D) $29 

BUY 2 ELECTRONIC ARTS TITLES AND GET 
ONE FREE FROM THE MANUFACTURER! 



MICROPROSE 

F-15 Strike Eagle (D) (C) $27 

Hellcat Ace ID) (CI $24 

Mig Alley Ace (DMCI $27 

NATO Commander (D) (C) S27 

Solo Flight (Dl (C) $27 

SSI 

Battle Normandy (Dl $28 

Broadsides ID) $28 

Carrier Force (Dl $43 

Combat Leader (Dl (CI $28 

Questron (Dl $47 

War in Russia (Dl $54 



$39 



SUBLOGIC 

Flight Simulator II (D) 

OSS 

Basic XL (Rl $70 

RESTON 

Movie Maker (Rl $39 

CBS 

Murder By The Dozen (R) $27 

SYNAPSE 

Syncalc (Dl $45 

Syntrend (D) 

Synfile (D) 

Syncom (D) 



$45 
$45 
$45 



SAVE ON ^1 V TITLES 

ATARI" 

Microsoft Basic II 

(D & R) $45 

Atariwriter (R) $35 

Assembler Eiditor (R) $25 

Macro Assembler (D) $25 

Home Filing Manager (D) . . .$25 

Visicalc (D) $55 

Pilot (R) $69 

Logo (R) $65 

CALL FOR PRICE ON 

ATARI HARDWARE 

Atari 800 XL $139 

Atari 1 050 Disk Drive $234 

Atari Touch Tablet $ 45 

Light Pen $ 45 

Atari 1020 Color Printer/Plotter $ 69 

Atari 1025 Dot Matrix Primer $200 

Atari 1027 Letter Quality Printer $259 

Atari 1 030 IVIodem $ 55 

WE ALSO CARRY UDS. SIGNALMAN 
PRINTERS 

Gemini 10X (120 CPSI $255 

Gemini 15X (120 CPSI $369 

Delta 10 (160 CPS) $339 



Atari Educator Kit «29.95 

Includes: 410 Recorder, Basic 
Cartridge, States and Capitals Program 

Programmer's Kit $19.95 

Includes: Basic Cartridge, 

Inside Atari Basic Book, 

Basic Language Reference Manual 

Arcade Champ Kit $2«.95 

Includes: Pac Man, Oix, 

Two Joysticks, Cartridge Holder 

Entertainer Kit $24.95 

Includes: Pac Man, Space Invaders, 
Two Joysticks 

Pitfall (R) $12.95 

Typo Attack (C) $ 7.50 

OTHER ATARI TITLES. 

Delta 15 (1 60 CPSI $455 

Radix 10 (200 CPS) $515 

Radix 15 (200 CPS) $599 

Epson RX 80 $229 

NEC 8027 CALL 

Okimate 10 CALL 

MPP 1150 Interface S 79 

Print Wheels ea. $ 5 

ACCESSORIES 

MPP-1 OOOC Modem $1 20 

MPP MicroRam (64K Expansion 

for 600 XL) $110 

Wico Joysticks From $ 1 7 

Pointmaster Joystick $ 8 



TURN YOUR ATARI INTO A FERRARI 

THE INCREDIBLE INDUS GT DISK DRIVE INCLUDES: 

- SSDO 

- WORK PROCESSOR 

- DATA BASE 

- SPREAD SHEET 




ALL FOR AN INCREDIBLE $299 



(C) CASSETTE TAPE (D) DISK (R) ROM CARTRIDGE 

CALL TOLL FREE 

Order Line 1-800-282-0333 M-F 10 a.m.-8 p.m. Eastern Time customer Service 1-513-879-9699 

611 Cypress Drive, Fairborn, OH 45324 

S Prepaid orders over $30 receive free shipping, UPS, continental US. No waiting period when paid by credit card, cer- ' 
tified checl<, or money order. Add $2 shipping and handling on orders under $30. Add $5 for COD orders. Hardware 
requires additional freight charges. Ohio residents add 5.5% sales tax. All items subject to availability and price change. 

PLEASE CITE AD NUMBER WHEN ORDERING. 
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L\;co Computer Marketing & Consultants 

"PEOPLE WHO KNOW WHAT THEY WANT AND KNOW HOW TO USE IT RECEIVE THE LOWEST PRICES FROM US 



DISK DRIVES - INPUS Atari $259.00 



TAXAN 

210 Color RGB 
100 Gfeen 
105 Amber 
400 Color RGB 
410 Colof RGB 
420 Color RGB-IBM 

121 Green-IBM 

122 Amber-IBM 

ZENITH 

ZVM122A Amber 
ZVM123G Green 
ZVM124 Amber-IBM 
ZVM131 Color 
ZVM133 RGB 
ZVM135 Composite 
ZVM136 HI RES Color 

GORILLA 

1 2 Green 
^2' Amber 



IMONITORS] 



$259 00 
$ 11 5 00 
$125 00 
$295 00 
$349 00 
$459 00 
$145 00 
SI 49 00 

S 96 00 
$ 86 00 
SI 29 00 
S276 00 
$389 00 
$449 00 
$589 00 

$ 82 00 
$ 89 00 



AMDEK 

300 Green 
300 Amber 
310 Amber-IBM 
Color I Plus 

Color 4T-IBM 

NEC 

JB 1260 Green 
JB 1201 Green 
JB 1206 Amber 
JC 1215 Color 
JC 1216 RGB 
JC 460 Color 

SAKATA 

SC-100 Color 
STSI Tilt Stand 
SG 1000 Green 
SA 1000 Amber 



$139 00 
$14900 
$159 00 
$259 00 
$589 00 

$ 99 00 
$145 00 
$14500 
$256 00 
$399 00 
$349 00 



$229 00 
$ 3500 
$ 99 00 
$ 1 09 00 



ANCHOR 

VolKsmodem 
Mark VII 

laulo ans'diah 
Mark VII 



ImodemsJ 



NOVATION 



J-Cat 
Cat 



$89 00 
$129 00 



Hayes 

Sman Cat 103/ 
Smart Cat 103/212 
AutoCat 
212 Auto Cat 
Apple Cat II 
2\2 Apple Cat 




IdiskettesI 



SKC 



SKC-SSSD 
SKC-SSDD 
SKC-DSDD 



$14 75 
$17 75 
$21 75 




ELEPHANT 



MAXELL 



5'. SSSD 
5'.SSDD 
5'. DSDD 



$15 99 
$17 99 

$22 99 



MD-l 
MD-2 



$1995 
$24 99 



IS AVE - PRINTERSI 



MANNESMANN 
TALLY 

SPIRIT 80 1269,00 

MTL-160L $549.00 

$749,00 



Citoh 



MTL-180L 



JUKI 



Juki 6100 $389 

Tractor kit $119 



Epson 



RX80 $239 

RX80FT 4279 

RXlOO $379 

FX80 $389 

FX100 $559 

JX80 $529 

LQ1500P ,ncludesKitS'089 
L01500S $1 149 



Prowiter 8510A $309 

8510BC2 $429 

8510BP1 $349 

851 DSP $449 

8510SR $499 

8510SCP $519 

8510SCR $569 

1550P $499 

15S0BCD $589 

A10-20P $469 

F1040PUorRDU $899 

F1055PU or RDU $1199 

PANASONIC 

1090 $229 

1091 $289 

1092 $439 

1093 $CALL 



BLUE CHIPS 

M12010 $279,00 

M12010C-64 $279.00 

D4015 $1399,00 



OKI DATA 

80 $159 

82A $299 

83A $549 

84 $669 

92 $369 

93 $679 

LEGEND 

880 ',$259.00 

1000 $279.00 

1200 CALL 

1500 CALL 

1081 CALL 






STAR 
MICRONICS 

Gemini lOx $239 

Gemini 1 5x $355 

Delta 10 S339 

Delta 15 $449 

Radix 10 $499 

Radix 15 $589 

Powertype $319 

Sweet p 1 00 $CALL 

SIX 80 $CALL 

GEMINI 10X 

$239* 



CARDCO 



LQ1 $449.00 

NEC LQ3 $339.00 

PRINTER INTERFACE $39.76 
NEC 8025 $699 00 pqiNJER INTERFACE W/ 
NEC 8027 $359.00 pyLL GRAPHICS $65 75 




800XL COMPUTER CALL 

1050 DRIVE CALL 

1010 RECORDER $55.00 

1020 PRINTER $59.00 

1025 PRINTER $189.00 

1027 PRINTER $249.00 

1 030 MODEM $59.00 

I MONKEY WRENCH II . $52 75 
HOME ACCOUNT D $44 75 

TAX ADVANTAGE $35 75 

DEADLINE $34.75 

ENCHANTER $34.75 

INFIDEL $34.75 

PLANETFALL $34.75 



STAR CROSS $34.75 

SUSPENDED $34.75 

WITNESS $34.75 

ZORK I $34.75 

ZORK II $34.75 

Trillium 

Shadowkeep $26.75 

Fahrenheit 451 $26.75 

Amazon $26.75 

Fisher Price 

Dance $16.75 

Memory $16.75 

Logic $16.75 

Numbers $16,75 



Spinnal<er 

Alphabet $18.75 

Story Machine $21.75 

Kids on Keys $18.75 

Grandma $19.75 

Snooper Troop $22.75 

Broderbund 

Bank St. Writer $42 76 

Spellmaker $19.95 

Mask of Sun $24 95 

Choplifter $22 96 

Lode Runner $22 95 



Microprose 

Solo Flight $22.75 

NATO $22.75 

Spitfire $19.95 

F-15 Strike $22.75 

Scarborough 

Songwriter $24,75 

Picturewrit $24.75 

Mastertype $24.75 

SSI 

Baseball $22,75 

Questron $26,75 

50 Missions $21,75 



Synapse 

Synfile $48,951 

Syncalc $48,95 1 

Syncomm $29,95 I 

Syntrend $48,95 1 

Graphics Tablet 

Supersketch $32,951 

Kolala $69,951 

THE ILLUSTRATOR $99 951 

SPIDER EATER $22 5o[ 

SPEEICOPTER $27 75 1 



TOLL FREE 1-800-233-8760 



99 TO ORDER 

CALL TOLL FREE or send order to 

800-233-8760 P^o^B^.Te'; 

Service 1-717-327-1825 Jersey Shore PA 1 7740 



RISK FREE POLICY 

In-stock item shipped within 24 hours of order. No deposit on COD, 
orders. Free shipping on prepaid cash orders within the Continental U,S, 
PA residents add sales tax, APO. FPO, and International orders add $5,00 
plus 3% for priority mail service. Advertised prices show 4% discount for 
cash, add 4% for Master Card or Visa, Personal checks require 4 weeks _ 
clearance before shipping. All items subiect to change without notice,^ 
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BASIC 

Training 



by Tom Hudson 



Well, here it is, folks! The final, BASIC version of 
High Seas, the program we've been developing since 
issue 23. You're now welcome to type it in and give 
it a try. 

The final version? 

Actually, this version of High Seas isn't exactly per- 
fect—its graphics won't win any awards, and there's 
no sound. It does, however, play a respectable game 
of Battleship, and it does this in a 16K cassette sys- 
tem. If your computer has more than 16K left, you 
may want to spruce up the graphics and add sound, 
to make the game more aesthetically pleasing. 

The actual artificial intelligence (AI) routines aren't 
sacred, either. If you can find a way to make the com- 
puter play a better game, by all means, do it! Use the 
game logic flowcharts form the last four issues as a 
guide. 

Playing High Seas. 

When RUN, High Seas will take a few seconds to 
set up and initialize its storage areas. After this pro- 
cess is complete, the computer will set up its ships 
and ask you to enter the positions of your ships. At 
this point, your screen should look like Figure 1. 

In Figure 1, you will see two ship grids, labeled 
COMPUTER and PLAYER. The COMPUTER grid, 
on the left side of the screen, is the one you will use 
to shoot at the computer's ships. The right grid, PLAY- 
ER, is the one on which you will place your ships. 
You will note that each grid is initially filled with + 
symbols. These indicate that the location is not oc- 




cupied by a ship, and no shots have been fired at the 
location. 




Figure 1. 

T) place your ships, you must enter a bow and stern 
coordinate for each ship. The computer will indicate 
which ship is to be placed, and you simply enter the 
endpoints. Figure 2 shows one possible fleet configu- 
ration. 

In Figure 2, all five ships (destroyer, submarine, cruis- 
er, battleship and aircraft carrier) have been placed 
on the PLAYER grid. The coordinates necessary to 
place them in this formation are shown in Figure 3. 
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0123456789 



++++++++++ 

+++DD++CCC 
++++++++++ 

M+55S++++++ 
+++++++fl++ 
+++++++A++ 
+++++++fl++ 
+BBBB++A++ 
+++++++ft++ 
++♦+++++++ 



PLAYER 



Figure 2. 



SHIP 



COORDS 



DESTROYER B3 TO B4 

SUBMARINE Dl TO D3 

CRUISER B7 TO B3 

BATTLESHIP HI TO H4 

A. CARRIER E7 TO 17 



Figure 3. 



Note that all the coordinates are entered in letter- 
number format, the letter taken from the left side of 
the placement grid, and the number from the top. 

When entering the ship coordinates, the computer 
will ask (as above) for "bow" and "stern" coordinates. 
Actually, these terms are interchangeable, and the 
computer doesn't care which coordinate you enter 
first. For example, the destroyer's coordinates could 
have been entered as BOW; B3, STERN -.84 or as 
BOW:B4, STERN;B3. 

Ships must be placed either horizontally or verti- 
cally (no diagonals), and they cannot overlap. If you 
try to enter an illegal coordinate, the computer will 
inform you and ask you to input the values again. 

After entering the coordinates of all five ships, the 
computer will pick a random number and decide who 
goes first. 

The player and computer take turns firing at each 
other's ships. As in ship placement, firing is accom- 
plished by entering the letter-number coordinate of 
the position you want to shoot at on the COMPUT- 
ER grid. Hits on enemy ships are indicated by an * 
character, while misses are shown as blanks. You can 
fire at any position that has not been fired at yet. Any 
errors in shooting will cause the computer to ask you 
to re-enter your shot. 

As the computer shoots at your fleet, its shots will 
appear on the PLAYER grid, in the same way your 
shots appear on the COMPUTER grid. 

The first being (either computer or human) to sink 
all the other's ships wins the game. If the computer 
wins, it will reveal the positions of its ships, so that 
you can see where you should have fired. 

I think you'll find that the artificial intelligence rou- 
tines in High Seas make the computer a worthy op- 
ponent. The combination of luck and strategy make 
this game fun for everyone (even computers). 



The program. 

Because of memory limitations (High Seas barely 
fits in 16K cassette systems), REMarks in the program 
were limited to main routines. However, if you look 
at the flowcharts from past issues, you should have 
little trouble finding the function of any particular 
group of code. The following information should also 
help clear up any confusion. 

Lines 70-150 define and initialize the major 
constants, strings and arrays used by the program. 
The variables CO through CIO, defined in Line 
70, are used to save memory in frequently-used 
numeric values. Lines 120-130 zero out the nu- 
meric arrays, an important operation, since Atari 
BASIC does not do this for you. 

Lines 160-200 set up the High Seas game 
screen. As mentioned earlier, this display is prob- 
ably the bare minimum to get the information 
across. Once again, this was primarily due to 
memory constraints, and you should feel free to 
improve it. 

Line 210 calls the subroutine at 2270, which 
sets up the computer's fleet. 

Lines 220-240 set variables for each of the 
five ships and call the subroutine at 520 for each 
ship, enabling the player to place his or her ships. 

Lines 250-260 decide who goes first with a 
simple random number function. If the computer 
goes first, control is transferred to the AI rou- 
tines starting at Line 730. If the human player 
goes first, the program continues at Line 270. 

Lines 270-510 are the human's shooting rou- 
tine. This code accepts a letter-number coordi- 
nate, verifies it and checks for a hit or miss. Lines 
370-460 check for sunken ships. If no ships are 
sunk, control goes to the computer's AI routine 
at Line 730. If a ship is sunk. Line 480 incre- 
ments XS, the computer's sink counter If XS=5, 
all five ships have been sunk, and the human 
wins. 

Lines 520-720 make up the human ship place- 
ment subroutine. This routine accepts the bow 
and stern coordinates, converts them into numer- 
ic values with the subroutine at 2510, and verifies 
that the coordinates are valid. If the coordinates 
are okay, the ship is placed, and the subroutine 
RETURNS. If not, an appropriate error message 
is printed by Line 620 or Lines 690-710. 

Lines 730-1990, which take up about half of 
the program code, are the computer's AI routines 
for shooting. Most of the effort in writing High 
Seas was spent coding and fine-tuning this sec- 
tion. This code has two main sections: random 
firing, when there are no unresolved hits; and 
selective firing, used to sink a ship that already 
has one or more hits on it. This code is incred- 
ibly complex, so I suggest that you study the flow- 
charts from issue 26 before altering these lines. 
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Lines 730-1010 handle random firing; 10204310 
are general subroutines; and 1320-1570 execute 
a shot, update the display and test for sunken 
ships. Lines 1580-2100 try to sink those ships 
with one or more hits and also detect ships which 
have been placed next to each other. 

Lines 2110-2170 are general purpose subrou- 
tines which clear portions of the screen, position 
the cursor and perform time-delay functions. 

Lines 2180-2260 are used when the game is 
over. If the computer wins, a GQSUB 2560 is 
executed, in order to reveal the computer's fleet 
layout. If desired, the player may request another 
game at this point. 

Lines 2270-2500 make up a small Al routine 
that's used to set up the computer's fleet. This 
routine is careful about placing ships next to each 
other — a bad tactic if used too often. 

Lines 2510-2540 decode the letter-number 
coordinates entered by the human player into nu- 
meric values used in array subscripts. 

Lines 2550-2580 display the computer's fleet 
layout at the end of the game. 

More BASIC Training. 

Next issue, we'll start designing a new game. Re- 
member to send in your topic suggestions. D 



COMPUTER 
PLAYER 



Send letters to: 



BASIC Training 

c/o ANALOG Computing 

P.O. Box 23 
Worcester, MA 01603 



10 REM MMMMKKMMMKKMMKMKKKKWKMMKMMKMM 

20 REM « * 

30 REM * HIGH SEA3 BY TOM HUDSON H 

40 REM * A.N.A.L.O.G. COMPUTING » 

50 REM * » 

60 REM MKKKMMKMlCMKlCMICKlClCMMKKMMlCltMKKK 

70 READ C0,Cl,C2,C3,C4,C5,C9,C10:DftTft 

0,1,2,3,4,5,9,10 

80 POKE 82, CO: REM *»* LEFT MARGIN *** 

90 DIM CGOtC9,C9J,CGlStl0O),HGOCC9,C9} 

, HG15 ClOOJ , 5L0 CCS , C5} , SLl <C5 , C5J , 5D <C5 

,C1J 

100 DIM 5NS(50J,5HSCC3),5lSCC3},S25(C3 

} , SS (C3} , BS (C3) , WS (C53 . H2S (C5) 

110 DIM HAtC9,C9},DtC4),PSCCl} :DtCl}=C 

1 : D <C2) :=C2 : D CC33 =03 : D tC4} =C4 

120 FOR X=CO TO C9:F0R Y=CO TO C9:CG0C 

K , YJ =C0 : HGO f X , Y3 =C0 : HA CK , Y> =C0 : NEXT Y : 

NEXT X 

130 FOR X=C0 TO C5:F0R Y=CO TO C5:SL0C 

H , Y J =C0 : 5L1 CX , YJ =C0 : NEXT Y : SD tX , COJ =C0 

:5D<X,C1J=C0:NEXT X 

140 CG1S=" ":CGlS(10e3=" ■':CGlSt2)=CGl 

S:HGlS=CGlS 

150 SNS="DESTR0YER SUBMARINE CRUISER 

BATTLESHIPA-CARRIER " : IF RNDtCOXO.S 
THEN T=0.5 
160 ? "H"; ? ■■ 

170 LTR=:193:F0R Y=C2 TO 11: POSITION C5 
, Y : ? "■"; CHRS tLTRJ ; ■■■++++++++++i" 
180 POSITION 21, V:? Tj"; CHRS (LTRJ ;■■■++ 
++++++++i":LTR=LTR+Cl:NEXT Y 



0123456789 



190 POSITION C5,12 ;? "I 

POSITION 21,12:? 

200 GOSUB 2120 

210 GOSUB 2130:? "I'M SETTING UP MY FL 

EET.": GOSUB 2270: GOSUB 2120 

220 GOSUB 2130:? "IT'S TIME TO SET UP 

YOUR SHIPS.": GOSUB 2160 

230 SIX=C1:SL=C2:SV=C1: GOSUB 520:SIX=1 

1 : SL=C3 : SU=C2 : GOSUB 520 : SIX=21 : SL=C3 : S 

U=C3: GOSUB 520 

240 SIX=31:SL=C4:SU=C4: GOSUB 520:SIX=4 

l:SL=C5:SUrC5: GOSUB 520 

250 GOSUB 2120:? :IF RNDCOXO.S THEN ? 

"I WILL GO FIRST.": GOSUB 2160: GOSUB 2 
120: GOTO 730 
268 ? "YOU GO FIRST!":GOSUB 2160:G0SUB 

2120 
278 REM *** HUMAN'S TURN H** 
288 GOSUB 2120:? "ENTER YOUR SHOT - "; 
; INPUT SHS:IF LENCSHS3 0C2 THEN 518 
298 SlS=SHS: GOSUB 2510: IF BX<C8 OR BX> 
C9 OR BY<CO OR BY>C9 THEN 510 
308 CIX=BX+BY»Cie+Cl:IF CGlS CCIX,CIX)< 
>" " THEN GOSUB 2140:? "OOPS - TRY AGA 
IN!":GOSUB 216e:G0T0 270 
310 CG1S(CIX,CIX)="2" 

320 IF CGO(BX,BY)>CO THEN SS="«":SDCCG 
OCBX,BY) ,Cl}n5DCCG0tBX,BYJ,Cl)+Cl:HD=S 
DCCGeCBX,BY},Cl} :GOTO 350 
330 5S=" ":G05UB 50O:GOSUB 2140:? "YOU 
R SHOT MISSES «":GOSUB 2160 
340 CGlS{CIX,CIXJ="l":GOTO 730 
350 GOSUB 500: GOSUB 2140:? "IT'S A HIT 
!!!":G0SUB 2160:0N CGOCBX,BY} GOTO 370 
,390,410,430,450 
360 STOP 

370 IF HD=C2 THEN SM=C1:G0T0 470 
380 GOTO 730 

390 IF HD=C3 THEN SM=C2:G0T0 470 
400 GOTO 730 

410 IF HD=C3 THEN SM=C3:G0T0 470 
420 GOTO 730 

430 IF HD=C4 THEN SM=C4:G0T0 470 
440 GOTO 730 
450 IF HD<C5 THEN 730 
460 SM=C5 

470 POSITION CO, 19:? "YOU SUNK MY "|SN 
5 t CSM-C13 »C10+C1 , SMKC10) ;"!!!": GOSUB 2 
160 

480 XS=XS+C1:IF XS=C5 THEN 2190 
490 GOTO 730 

500 POSITION 8+BY,C2+BK:? SS:RETURN 
510 GOSUB 2140:? "INCORRECT INPUT!":GO 
SUB 2160: GOTO 270 
520 REM *** HUNAN SET-UP *** 
538 GOSUB 2120 

540 ? "SHIP: ";SN$tSIX,SIX+C9};" 

LEHGTH:";SL:" " 

550 ? :? "BOM COORDINATE CEG. B4J - " 

;: INPUT B5 

560 ? "STERN COORDINATE - "::I 

NPUT S$ 

570 IF LENtB5j<>C2 OR LENCS$}<>C2 THEN 

690 
580 5lS-BS:S2S=SS:60SUB 2510 
598 IF BY<C8 OR BY>C9 OR SY<C0 OR SY>C 
9 THEN 690 

600 IF BX<CO OR BX>C9 OR SX<CO OR SX>C 
9 THEN 690 

618 XI=56NCBX~SX) :YI=SGNCBY-SVJ :IF ABS 
<XI-YIJ<>C1 THEN 780 

628 IF ABS{BX-SX)+ABSCBY-SYJ<>CSL-C1) 
THEN GOSUB 2150:? "SHIP WON'T FIT!":GO 
TO 728 

638 H1=5X:H2=SY 
648 H1=H1-XI:H2=H2-VI 

658 FOR M2=C1 TO SL : H1=H1+XI :H2=H2+YI ; 
IF H60(H2,H1)>C0 THEN 718 
668 NEXT M2:H1=5X-XI:H2=SY-YI 
678 FOR W2=C1 TO SL :H1=H1+XI : H2=;H2+YI : 
POSITION 24+H2,2+Hl:? SN5 C5IX,SIKJ :SL8 
CSV,W2}=H2:SL1(SU,W2)=H1 
688 HG0CH2,H1]=SU:NEXT W2: RETURN 
690 GOSUB 2150:? "INCORRECT INPUT!": GO 
TO 720 

700 GOSUB 2150:? "NO DIAGONALS!":G0T0 
720 
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710 G05UB 2158:? "SHIP OVERLAPS ANOTHE 

R!" 

720 G05UB 2160: GOTO 520 

750 REM *H* COMPUTER'S TURN »«* 

740 IF SD(C5,C0J<C5 THEM 0S=C5:60T0 78 



750 IF 5DtC4,C03<C4 THEM 0S=C4:G0T0 78 



760 IF SDCC3,C03<C3 OR SDCC2,C0J<C3 TH 

EM 0S=C3:G0T0 780 

770 0S=C2 

780 IF SDfCl,C0J<C2 THEM LS=C2:G0T0 82 



790 IF SDCC2,C0}<C3 OR SDCC3,C03<C3 TH 

EN LS=C3:G0T0 820 

800 IF SDCC4,C0)<C4 THEN LS=C4:G0T0 82 



810 LS=C5 

820 IF HP>CO THEM 1580: REM ««« SRCH FO 

R NEXT HIT **« 

830 IF S>75 THEM 960: REM *** 5YSTEMATI 

840 GS=CO:M=:CO 

850 H-M+Cl:IF N>C10 THEN 900 

860 G05UB 108e:IF HGlSCHIX,HIK} <>" " T 

HEM 850 

870 GOSUB 114e:IF BH>CO AMD RNDtClXO. 

8 THEM 850 

880 GOSUB 1050: IF GS=C1 THEM 1320 

890 GOTO 850 

900 GS=C8:M=C0 

910 M=H+Cl:IF M>75 THEM 960 

920 GOSUB 1080:IF HGlS tHIK,HIX3 <>" " T 

HEM 910 

930 GOSUB 1140: IF BH>CO AND RMDCC1}<0. 

8 THEM 910 

940 GOSUB 1020:IF 6S=C1 THEM 1320 

950 GOTO 910 

960 FOR X=CO TO C9:F0R Y=CO TO C9:60SU 

B 1090:IF HGlSfHIX,HIX)<>" " THEM 980 

978 GS=CO: GOSUB 1050: IF GS=C1 THEN 132 



980 NEXT Y:NEXT X 

990 FOR X=CO TO C9:F0R Y=CO TO C9:G0SU 

B 1098:IF HG1S(HIX,HIXJ<>" " THEM 1010 

1000 GSrCO: GOSUB 1020: IF GS=C1 THEN 13 

20 

1010 NEXT Y:MEXT X:STOP 

1020 GOSUB 1100: GOSUB 1120: IF XT>=OS T 

HEM 1040 

1030 GOSUB 1130: IF YT<OS THEM RETURN 

1040 GS=Cl: RETURN 

1050 GOSUB 1100:G0SUB 112e:IF XT<0S TH 

EM RETURN 

1060 GOSUB 1130: IF YT<0S THEN RETURN 

1070 GS=Cl:RETURH 

1080 X=INTCRNDfCe)«Cie) :Y=INTCRNDCCO}» 

CIO} 

1090 HIX=X+Y*C10+Cl: RETURN 

1100 0E=(X+YJ/C2:IF OE-INT(OE><>T THEN 

POP 
1110 RETURN 

1120 XI=Cl:YI=CO:GOSUB 1170 : XT=DT : XI=- 
Cl:YI=CO: GOSUB 1170 :XT=XT+DT+C1 : RETURN 
1130 XI::CO:YI=Cl: GOSUB 1170 : YT=DT : XI=C 
: YI=-C1 : GOSUB 1170 : YT=VT+DT+C1 : RETURN 
1140 BH=CO:FOR IX:=X-C1 TO X+C1:F0R IY= 
Y-Cl TO Y+C1:IF IX<CO OR IX>C9 OR IY<C 
OR IY>C9 THEN 1160 

1150 HIX=IX+IY»C10+Cl:IF HGlS tHIX.HIXJ 
="2" THEN BH=BH+C1 
1160 NEXT IY:HEXT IX:RETURN 
1170 DT=CO:WX=X:HY=Y 

1180 MX=MX+XI:MY=WY+YI:IF WX<CO OR HX> 
C9 OR HY<C0 OR HY>C9 THEM RETURN 
1190 IF HA (MX, NY) THEM RETURN 
1200 DT=DT*Cl:GOTO 1180 

1210 FOR P1=C1 TO HD:HACSL0(SM,P1},SL1 
CSM,Pl)J=Cl:HP3HP-Cl:MEXT PI: RETURN 
1220 D1=C0:D2=C0 

1230 DS=:CO:XI=Cl:YI=CO: GOSUB 1280:T1=D 
S : DS=CO : XI=-C1 : YI=CO : GOSUB 1280 : T1=T1+ 
DS 

1240 DS=CO:XI=CO:YI=Cl:GOSUB 1280:T2=D 
S : DS=CO : XI=CO : YI=-C1 : GOSUB 1280 : T2=T2+ 

•>^ 

1250 IF T1>=LS THEN D1=C1 



1260 IF T2>=LS THEN D2=C1 

1270 RETURN 

1280 UX=:GX:VY=GY:DS=C1 

1290 gX:=UX+XI:VY=VY+YI:IF VX>C9 OR VY> 

C9 OR UX<CO OR UY<CO THEN RETURN 

1300 IF HA(VX,UY)=C1 THEM RETURN 

1310 DS=DS+C1:G0T0 1290 

1320 MS=STRS <YJ : WS (CIJ =CHRS (ASC CMS CLEM 

CMS} ) } +17} : M2S=STR5 CX} : M$ C2} =M2S CLEM CM 

2$}} 

1330 SS=" ■■:HACX,Y}=C1:IF HGOCX,Y}=Ce 

THEN 1350 

1340 S5="«" : SD CHGO CX , Y} , CO) =SD CHGO CX , Y 

},C0}+C1 

1350 GOSUB 1090:HGlSCHIX,HIX}="l":S=S+ 

CI 

1360 GOSUB 2120:? "MY SHOT IS ";MS 

1370 POSITION 24+X,C2+Y:? S$ 

1380 IF SS=" " THEN GOSUB 2140:? "IT'S 

A MISS!":GOSUB 2160: GOTO 270 
1390 GOSUB 2140:? "IT'S A HIT!":GOSUB 
2160:HM=C1 

1400 GOSUB 1090:HGlSCHIX,HIX}="2" 
1410 HACX,Y}=C2:HP-HP+C1 
1420 01=X:Q2=Y:HD=SDCHG0CX,Y},C0} :0N H 
GOCX,Y) GOTO 1430,1450,1470,1490,1510: 
STOP 

1430 IF HD=C2 THEN 5M=C1:G0T0 1530 
1440 GOTO 270 

1450 IF HD=C3 THEN 5M=C2:G0T0 1530 
1460 GOTO 270 

1470 IF HD=C3 THEN SM=C3:G0T0 1530 
1480 GOTO 270 

1490 IF HD=C4 THEN SM:=C4:G0T0 1530 
1500 GOTO 270 
1510 IF HD<C5 THEN 270 
1520 SM=C5 

1530 POSITION CO, 19:? "YOUR ";SNSCC5M- 
C1}»C10+C1,5MKC10};" HAS BEEN SUNK!" 
1540 GOSUB 2160: GOSUB 1210 
1550 REM «*» ONE MORE COMPUTER-SINK ** 

1560 YS=YS+C1SIF YS=C5 THEN 2190 

1570 HM=CO:GOTO 270 

1580 REM *** SINK SHIP SUBROUTINE *** 

1590 El=C0:E2=C9:E3=Cl:IF RNDCC1}>0.5 

THEM E1=:C9:E2=C0:E3=-C1 

1600 FOR FX::E1 TO E2 STEP E3:F0R FY=E1 

TO E2 STEP E3 
1610 IF HACFX,FY}<C2 THEM 1760 
1620 IF HP=C1 THEN 1980 :REH *»* RANDOM 

DIR SHOT «»* 
1630 GX=FX:GY=FY:GOSUB 1220 
1640 IF DlOCl THEN 1700 
1650 LE=C9:RI=C9 

1660 IF FX>CO THEN LE=HACFX-C1 ,FY} 
1670 IF FX<C9 THEN RI=HACFX+C1,FY} 
1680 IF LE=CO AND RI=C2 THEN X=FX-C1:Y 
:=FY:60T0 1320 

1690 IF LE=C2 AND RI=CO THEN X=FX+C1:Y 
=FY:GOTO 1320 
1700 IF D20C1 THEN 1760 
1710 UP=C9:DN=C9 

1720 IF FY>CO THEN UP=HA CFX,FY-C1} 
1730 IF FY<C9 THEN DN=HA CFX,FY+C1} 
1740 IF UP=CO AND DN=C2 THEN X=FX:Y=FY 
-Cl:GOTO 1320 

1750 IF UP=C2 AND DN=C0 THEN X=FX:Y=FY 
+Cl:GOTO 1320 

1760 NEXT FY: NEXT FX:REM *** NOM YOU K 
NOM THERE ARE PARALLEL SHIPS *** 
1770 FOR FX=CO TO C9:F0R FY=:CO TO C9 
1780 IF HACFX,FY}<C2 THEN NEXT FY:NEXT 

FX:STOP 
1790 GX=:FX:GY::FY: GOSUB 1220 
1800 IF DlOCl THEN 1858 
1810 LE=C9:RI=C9:DR=C1 
1820 IF FX>CO THEM LE=HA CFX-Cl ,FY} 
1830 IF FX<C9 THEM RI=HA CFX+C1,FY} 
1840 IF LE=CO OR RI=CO THEN 1910 
1850 IF D2 0C1 THEN 1900 
1860 UP=C9:RI=C9:DR=C2 ., ^., „., 
1870 IF FyJcO then UP=HA CFX, FY-Cl} 
1880 IF FY<C9 THEM DN=HA CFX,FY+C1} 
1890 IF UP:=CO OR DNnCO THEN 1910 
1900 NEXT FY:HEXT FX:STOP 
1910 IF DR=C2 THEN 1950 
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1920 XD=:-C1+IMTCRHD<C8}«C3) :IF XD^CO T 

HEN 1928 

1930 IF HAtFX+XD,FVJ THEN XD=-XD 

1948 X::FX+XD:Y=FV:GOTO 1328 

1958 VD=-CHHNTCRND<C8J»C3) :IF VD=C8 T 

HEN 1958 

1968 IF HA(FX,FY+YD> THEN YI>=-YD 

1970 X=FX:Y=FY+YD:GOTO 1328 

1988 FOR K=C1 TO 28 : U1=CHHNT (RND tce)» 

C43 :U2=Cl+INTtRND{Cej»C4) :U3=[>(U1} :D(U 

1J=DCU2} :DCU2J=U3:NEXT X 

1990 FOR DP=C1 TO C4:0N D CDP> GOTO 288 

0,2828, 2848, 2868: STOP 

2888 XI=Cl:YI=Ce:X=FX:Y=FY:G05UB 1178: 

XI>=DT : XI=-C1 : YI=C8 : GOSUB 1178 : XD=XD+BT 

+C1:IF XD<LS THEN 2188 

2818 GOTO 2878 

2828 XI=-Cl:YI=C0:X=FX:Y:=FY:G05UB 1178 

: XD=DT : XI=C1 : YI=Ce : G05UB 1178 : XD=XD+DT 

*C1:IF XD<L5 THEN 2188 

2838 GOTO 2878 

2848 XI::C0:YI=-Cl:X=FX:Y=FY:G05UB 1178 

: XDnDT : XI=C8 : YI=C1 : G05UB 1178 : XD=XD+DT 

+Cl:IF XD<L5 THEN 2188 

2850 GOTO 2870 

2868 XI=:C8:YI::Cl:X=FX:Y=FY:G05UB 1178: 

XD=DT : XI=C8 : YI=-C1 : GOSUB 1178 : XD=XD+DT 

+Cl:IF XD<L5 THEN 2188 

2878 KX=FK+XI:KYrFY+YI:IF KX<C8 OR KX> 

9 OR KY<CO OR KY>9 THEN NEXT DP:STOP 

2880 IF HA(KX,KY) THEN NEXT DP:5T0P 

2090 XnKX:Y=KY:GOTO 1320 

2188 NEXT DP:5T0P 

2118 REM iHHf SCREEN SUBROUTI NES *** 

2128 G8SUB 2138:? " CglllKIH " ; GOSIIB 21 

38: RETURN 

2138 POSITION CO, 15: RETURN 

2148 POSITION C8,17:RETURN 

2158 POSITION C8,20:RETURN 

2160 REM *** TIME DELAY ROUTINE *** 

2170 FOR DT=C1 TO 208:HEXT DT:RETURN 

2188 REM JHHf END-OF-GAME CODE *** 

2198 IF YS=C5 THEN GOSUB 2568 

2280 GOSUB 2168: GOSUB 2120: GOSUB 2138: 

IF VS=C5 THEN 2228 

2218 ? "YOU HIN!!":GOTO 2238 

2228 ? "I WIN! !■■ 

2230 GOSUB 2148:? "AN8THER GAME tQ/Qj" 

; : INPUT H$ 

2248 IF HS="N" THEN END 

2258 IF M5 0-Y"' THEN GOSUB 2148:? "Gl" : 

GOTO 2238 

2268 RUN 

2278 REM *** SET CeMPUTER'S SHIPS »»» 

2288 SU=Cl:SL=C2: GOSUB 2388 :SV=C2 :SL=C 

3: GOSUB 2308 :Sy=C3:5L=C3: GOSUB 2388 :SV 

=C4:SL=C4:G0SUB 2388 

2290 SU=C5:SL=C5: GOSUB 230O:RETURN 

2388 MK=INTCRNDCC8})tC18) : HY=INT CRND (CO 

>»C183 :D=INTCRNDCC8)«C4) 

2318 ON D+Cl GOTO 2320,2348,2368,2388: 

STOP 

2320 IF NY<SL THEN 2388 

2338 B1=C1:B2=C8:XI=C8:YI=-C1:G0T0 248 

8 

2348 IF CC18-WX3<SL THEN 2388 

2358 Bl=Ce:B2=:Cl:XI=Cl:YI=C8:G0T0 2488 

2368 IF CC18-WYJ<5L THEN 2388 

2378 B1=C1:B2=C8:XI=C8:YI=C1:G0T0 2488 

2388 IF WX<SL THEN 2388 

2398 Bl=Ce:B2=Cl:XI=-Cl:YI=C8 

2488 HX=MX:HY=WY:IF CG0(HX,MY) THEN 23 

88 

2410 ZlrHX+Bl:Z2=HY+B2:IF ZKCIO AND Z 

2<C18 THEN IF CG8CZ1,Z2) AND RND Cl)<8 . 

95 THEN 2300 

2420 Zl=HX-Bl:Z2=HY-B2:IF Z1>-C1 AND Z 

2>-Cl THEN IF CG0CZ1,Z2) AND RNDCClXO 

.95 THEN 2388 

2438 FeR HC=C1 TO fSL-ClJ : HX=HX+XI : HY= 

HY+YI:IF CG8<HX,HY) THEN 2388 

2448 Zl=HX+Bl:Z2=HY*B2:IF ZKCIS AND Z 

2<C18 THEN IF CG8CZ1,Z2} AND RND(C1}<8 

.95 THEN 2300 

2450 Zl=HX-Bl:Z2=HY-B2:IF Z1>-C1 AND Z 

2>-Cl THEN IF CG0(Z1,Z2) AND RNDCClXO 

.95 THEN 2388 



2460 NEXT MC 

2470 HX=HX+XI:HYrHY+YI:IF HX<C8 OR HX> 

C9 OR HY<C0 OR HY>C9 THEN 2490 

2480 IF CGOCH»,HY} AND RNDCClXO. 95 TH 

EN 2388 

2490 HX=HX:HY=MY:CG8CHX,HY)=Sg 

2588 FOR HC3C1 18 tSL-C13 : HX=HX+KI : HY= 

HY+YI : CG8 CHX , HY3 =SU : NEXT HC : RETURN 

2518 REM JH** DECODE GRID INPUT »** 

2528 BX=ASC CSlS f CI , CIJ ) -65 : BYr ASC tSl5 ( 

LENtSlSJJJ-48 

FiS^^^Sr??*^ *^2S tCl , C13 J -65 : SY=ASC CS2S C 

LEN{S2S}) J-48 

2540 RETURN 

2558 REM *** SHOH COMPUTER'S LAYOUT AT 

END *** 
2560 FOR X=CO TO C9:F0R Y=C8 T8 C9:HV= 
CGBtX.Y) :PeSITION 8+Y,C2+X:IF WV=CO TH 
EN ? '■ ":GOTO 2580 

2570 ? CHRSCASC(SHSt(HU-Cl)»C18+Cl, CNV 
-C1)«C10+C1)}+128J 
2580 NEXT V:NEXT X: RETURN 



CHECKSUM DATA. 

(see page 8) 

10 DATA 532,994,696,479,0,542,861,798, 

727,261,641,667,959,448,265,8862 

168 DATA 383,186,718,328,797,298,989,9 

80,237,968,634,726,359,217,435,8159 

318 DATA 684,866,225,766,729,449,156,7 

32,166,718,147,716,157,722,799,7944 

468 DATA 390,682,385,737,958,234,752,8 

12,389,822,517,167,666,264,235,7858 

618 DATA 796,344,249,965,588,192,644,4 

04,618,112,213,893,215,4,3,6232 

768 DATA 774,390,978,778,965,368,797,5 

37,891,612,644,977,255,753,881,10688 

918 DATA 447,624,957,239,733,342,37,55 

6,563,164,428,38,154,542,391,6215 

1860 DATA 157,545,242,623,659,783,965, 

47 , 418 , 76 , 252 , 792 ,988,942, 842 , 8323 

1218 DATA 533,155,995,71,348,353,792,2 

79,976,279,845,628,278,662,88,7282 

1368 DATA 482,739,123,931,48,158,989,4 

49,888,454,898,457,892,462,887,8761 

1510 DATA 887,557,669,283,67,869,668,1 

8,440,60,641,203,655,900,314,7855 

1668 DATA 435,466,528,523,919,348,474, 

438 , 531 , 528 , 659 , 811 , 148 , 664 , 919 , 8375 

1818 DATA 78,437,468,662,913,188,482,4 

38,694,685,683,911,969,724,921,9165 

1968 DATA 976,734,585,320,374,716,431, 

718,394,720,341,786,720,311,588,8714 

2110 DATA 443,729,689,694,682,450,294, 

986,542,721,631,13,587,945,649,8975 

2268 DATA 324,984,328,527,698,170,753, 

797,388,602,383,684,757,566,556,8333 

2410 DATA 559,238,889,247,241,768,258, 

457,389,173,488,161,228,880,348,6876 

2568 DATA 764,358,686,1728 
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by Tom Hudson 



Adventure games have been with us for quite a 
while, but for the longest time, I was not too thrilled 
about playing them. Perhaps it was because the first 
adventure I ever played was poorly written, slow and 
contained numerous bugs. 

'*. I never wrote any adventure programs, either, since 
it's obviously no fun solving a puzzle you created in 
the first place. 

All this was true, until Brian Moriarty wrote the 
text adventure. Crash Dive, for issue 18. 1 had noth- 



ing to do one evening, so I sat down and played it. 
I enjoyed the puzzle-solving nature of Crash Dive so 
much, I went back and played Brian's Adventure in 
the 5th Dimension, from issue 11 of ANALOG 
Computing. I was hooked. 

The night I finished Crash Dive, I was reading an 
article on the space shuttle complex at Vandenberg 
Air Force Base. The idea for an adventure program 
hit me like a brick. Two weeks later. Adventure at 
Vandenberg A. KB. was complete. 
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The scenario. 

You're a nosy reporter for the Daily Babble, a large 
metropolitan gossip tabloid, following a hot story. 
You've overheard several terrorists discussing a dia- 
bolical plot: the destruction of the Air Force's newest 
space shuttle seconds before launch! The bomb has 
already been placed somewhere on the base, its timer 
set to detonate at 09:00. 

Shocked, you rush to the local police station, to 
warn them to stop the launch. Unfortunately, they've 
read your stories about Bigfoot actually being a UFO 
alien, and they won't believe the shuttle story, either. 
Now it's up to you alone to save the shuttle and its 
five crew members. 

Using all your reporter's cunning, you manage to 
sneak past the gate guards. You duck into a small 
storage shed, knowing that the hardest part of your 
job is still ahead of you. 

And you've only got one hour. 

Typing it in. 

Using Atari BASIC, type Listing 1 into your com- 
puter. It must be typed exactly as printed, or the ad- 
venture could be rendered unsolvable. 

The other listings are the assembly language source 
code for the USR calls used by the program. You don't 
have to type in these listings to play the game. They 
are included for the benefit of assembly language pro- 
grammers. 

After you've typed in the BASIC code, Unicheck 
should be used to check your typing. When you are 
certain the program is typed correctly, SAVE it to tape 
or disk before running it. 

Gameplay. 
When RUN, Adventure at Vandenberg will dis- 
play the title screen, along with the message INI- 
TIALIZING. And, after a few seconds, you'll see the 
prompt: 

Press ■■if!i;iM to begin new gane. 

Press ■naniKJ to restore old gaHe. 

Now press the START key. The screen should look 
like this: 




The screen is divided into five imaginary text areas 
or "windows." The black response window at the bot- 
tom accepts commands from the user and displays des- 
criptions of objects and the results of your actions. 
A blinking cursor in the response window indicates 
that the program is waiting for new commands. 

The location window at the top of the screen gives 
you a brief description of your immediate surround- 
ings. Underneath it is the compass window, which 
indicates all of the possible exits from that location. 

The objects window shows a list of all objects visi- 
ble at the current location. The bottom of the blue 
screen area is the inventory window, which lists the 
items you are carrying. 

Like most text adventures. Adventure at Vanden- 
berg understands two -word sentences in the form of 
VERB-(space)-NOUN. Try typing the sentence TAKE 
CAN on the starting screen. The "spray can" will van- 
ish from the objects window and reappear on your 
inventory window. 

You can interact with objects on the screen just as 
you can in real life. Watch the response window as 
you type EXAMINE CAN. If you type DROP CAN, 
the can will return to the object window. 

This adventure will understand several nouns and 
verbs. You'll have to experiment to find out just which 
ones are valid. If you type something the computer 
can't decipher, you'll see the message, "I don't under- 
stand — try again," in the response window. 

Single-character commands. 
Adventure at Vandenberg also understands a lim- 
ited number of single-commands. These commands 
control movement and other special functions. 

MOVEMENT COMMANDS 

N - North S - South E — East W - West 

U - Up D - Down 

OTHER COMMANDS 
I — Inventory Q — Quit/Save Game 

The movement commands let you head in any of 
the directions shown in the compass window. The 
I command displays the objects you are carrying in 
the inventory window. This window is also updated 
whenever you TAKE or DROP anything. 
Saving and loading games. 

Adventure at Vandenberg allows you to save your 
current game status to tape or disk. To use this fea- 
ture, make sure your storage device is properly con- 
nected and is loaded with a blank tape or formatted 
disk. Type the command Q (quit) and answer Y to the 
Save Game? prompt. Then indicate whether you are 
saving to disk or tape. 

To prevent the screen from going crazy during this 
process, it will go black for a few seconds while the 
game is saved. When the save is complete, the screen 
will return, so the game can be continued. I/O errors 
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will result in a "beep," and the Disk or Tape prompt 
will reappear. 

To load a previously saved game, type Q/RETURN 
and then RETURN again, to exit. RUN the program 
again and press the OPTION key when initialization 
is complete. When the screen appears, the game will 
be restored to exactly the way it was when you last 
saved it. 

Don't try aborting the game with the BREAK key. 
This key is disabled to prevent you from crashing the 
machine -language routine that makes the cursor blink. 
Whenever you want to stop the program for any rea- 
son, press SYSTEM RESET 

Helpful hints. 

1. Stay out of sight. As you can imagine, security 
at a military base like Vandenberg is extremely tight. 
Standing out in the open for too long will allow you 
to be spotted by security personnel. 

2. Draw a map. The base grounds and underground 
tunnel system at Vandenberg are confusing, with few 
landmarks. It's a good idea to draw a map as you go 
along. Be careful, though — the base security guards 
are diligent! 

3. Examine everything. Objects may have impor- 
tant features that will not be evident unless you exa- 
mine them closely. You should also keep track of the 



objects you discover — most of them are essential to 
your success. 

4. Save your game frequently. Use the Q command 
to save your current status after every important dis- 
covery. . . and before you try anything that might be 
dangerous. Otherwise, you'll have to go back to the 
storage shed and start all over again. 

5. Try anything. Don't be afraid to find out what 
you can or can't do. 

6. Don't give up. The space shuttle can be saved! 
If you're stuck, ask for other people's advice. A fresh 
outlook might uncover a solution you didn't think of. 

7 . Don't call ANALOG Computing. We are not 
— absolutely, positively and definitely not — giving ad- 
venture hints over the telephone! If you run into an 
impasse, drop me a letter (include a pre-addressed, 
stamped envelope), and I'll try to help you out. What- 
ever you do, verify your typing with Unicheck. One 
mistyped line is all it takes to make Adventure at Van- 
denberg A.F.B. truly impossible to win. 

The credits. 

I'd like to thank Brian Moriarty for his Adventure 
in the 5th Dimension. Rather than re-invent the 
wheel, 1 used the basic structure of his program for 
this one. This allowed me to write Adventure at Van- 
denberg in under two weeks of spare time. D 



National 

1-800-328-1226 

(orders only) 



SPECIALS 



Atari Basic Cartridge 1 9.95 

Entertainer Kit 

Pac Man, Star Raiders S pr. Atari Joysticl^s 30.00 

Indus GT Disk Drive 299.95 

BMC BM1 2EUY 1 2" High Res Amber 79.95 

BMC 9191 U+13" Color 229.95 

BMC JJ1 202G 1 2" Green 99.95 

BMC Monitor stand 24.95 

Interex Monitor Cable (5 pin din to 4 RCA) 6.95 



ORDER TOLL FREE 

Hrs. M-F 1 0:00 - 6:00 (CST) 



Minnesota 

1-800-626-2345 

(orders only) 



MONITORS 



ORDERING INFORMATION... 

To order, call toll free or send by mail. For fastest ser- 
vice use yourVisa or Master Card (include card # and 
exp. date), or send a money order or cashier's check. 
Allow 2 weeks for personal checks to clear. Add 3% 
(minimum 3.00) for shipping. Minnesota residents 
add 6% sales tax. We also ship COD. Return Policy: 
Call Customer Service* For RA#. Credit or defective 
exchange only. 

Customer Service 61 2-784-681 6 



GTA^^^^SALES 



PRINTERS 



BMC BX 80 229.95 

Epson RX80 259.95 

Epson RX80FT 299.95 

Epson RX1 00 429.95 

Epson FX80 449.95 

Epson FX1 00 649.95 

BMC BX80 Ribbon 7.95 

MRP 1 1 50 Interface 75.00 

Cardco AT Printer Interface 59.95 

Atari 850 Interface 1 39.95 

No Name SVa" SS/DD Diskettes & Sleeve 65.00 

(pacl< of 50) 

Kraft Single Button Joystick 7.95 

Kraft Switch Hitter Joystick 8.95 

Amaray Disk Bank 

(Holds 50 Disl<s) 1 2.95 

MPP 1 0OOC Modem 1 25.00 



MISCELLANEOUS 



8465 Plaza Blvd. 

Spring Lake ParK MN 55432 



CIRCLE #130 ON READER SERVICE CARD 
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BASIC listing. 



10 CLR :GOTO 212 

11 GRAPHICS C0:STS=MSC4ei,405J :Z=fl5CCS 
T«CC5,C5J) :OPEH ttC2, C8,C0,"5 :" :G05UB 1 
5 .-POKE 703, C4 

12 DL=PEEKC560)+PEEK{561)»256:F0R I=DL 
+31 TO DL+24 STEP -ClsPOKE I,PEEKCI-C1 
)!NEXT I:P0KE DL+25,C16 

13 Q=U5R Cie48, 1680) : POKE 54286, 192:P0K 
E C16,112:P0KE 53774, 112:G0T0 75 

14 POKE C710,C0:P0KE C709,C14:RETURM 

15 POKE C709,C14:P0KE C710,148 :RETURN 

16 FOR I=CO TO C12 STEP C4 : K1=USR CFAD, 
13 :NEMT Z 

17 K1=USRCFAD, CIS) -.RETURN 

18 SOUND CO,25,C10,C15:F0R I=C1 TO C4 : 
NEKT I:SOUND CO,Ce, Ce,Ce :RETURN 

19 SC=:SC~Cl:? "I don't understand. Tr 
y again. ":GOTO 50 

20 ? "That is iMpossible.":RETURN 

21 ? "There isn't enough rooM here.":R 
ETURN 

22 ? "It isn't here.": RETURN 

23 K=USR(L00K,CL7,N,C8) rRETURN 

24 Y=USRCL00K,ST,N,C4) :RETURN 

25 GOSUB 24: IF Y THEN RETURN 

26 POP :POP :? DH$:GOTO 50 

27 Q=C15»CASCCST$CC5,C53J-65)*C1:RETUR 
N 

28 POP :FLAG=C1:G0T0 80 

29 ? ttC2;"0n base grounds.": RETURN 

30 ? ttC2;"Payload prep, center .":RETUR 
N 

31 ? ttC2;"South of Headquarters. ":RETU 
RN 
32 
33 
34 
35 
36 
37 
URN 
38 ' 
39 
40 
41 
N 

42 CLOSE ttC2: GRAPHICS CO: GOSUB 14:RETU 
RN 

43 POP 



ttC2;"North of Security. ":RETURN 
tlC2;"Storage shed.":RETURH 
ttC2;"Security of f ice.":RETURN 
»C2; "Headquarters . " : RETURN 
ttC2;"Maze of tunnels .":RETURN 
tlC2; "Materia is distribution." 



RET 



ttC2;"InstruMent bay.":RETURN 
nC2;"Escape bunker .":RETURN 
ttC2;"Pipe trunk. ":RETURN 
ttC2;"Fuel puHping station. ":HETUR 



:G05UB 42:P0SITI0N C12,C10:? "C 
ongratulations!":? "4 The boHb has b 
een deactivated!4444":END 

44 POP : GOSUB 42: POKE 752, CI: ON DR GOT 
45,46,48 

45 ? "ti » » riTIfiUi*l!l<l " 

46 ? "H* The bOHb explodes, killin 
g you" 

47 ? " and destroying the shuttle!" 
.■GOTO 49 

48 ? "*4* Before you can act, a guard 
appears":? " and shoots you DEAD!" 

49 ? "i> ■r>iO<:i*irW*»:«:!r« " ; GOTO 2 
17 

50 POP :IF SFLG=C1 THEN SFLG=Ce:GOTO 5 
5 

51 SC=SC+Cl:IF NOT USR CLOOK, ADR C'ABDE 
FGHK"),CL,C8) THEN SC=CO 

52 IF CL5tl,l)<>"K" THEN 55 

53 IF M5C397,397)="»" THEN 55 

54 MS C392, 392) ="»": MS C397, 397) ="*":? " 
A guard leaves Security and":? "walks 
out of sight." 

55 ? ">>>>> What next"; !605UB 18:TRAP 
5e:INPUT KS:TRAP 0FF:L-LENCKS) :IF MOT 

L THEM 19 

56 IF L=C1 AND (K$="I" OR KS="0") THEN 
58 

57 IF L=C1 AND USR CLOOK, CL7, ADR C"A") , C 
8) AND MS 1392, 392)="?" THEN MSC394,394 
)r"«" 

58 IF SC>4 THEN 211 

59 IF L=C1 THEN US=KS:GOTO 71 

60 a=U5R CLOOK, ADR CKS), ADR C" "),L}:IF Q 
<C3 THEN 19 



61 VS=KSCCl,a-Cl) :NS=KSCCI+C1,L) :IF LEN 
CNSXC3 THEN 19 

62 Z=USRC1536,ADRCUERBS}-C4,U) :IF NOT 
Z THEN 19 

63 Q=USRC1536,ADRCN0UNS}-C4,N) :IF NOT 
Q AND Z<>76 THEN 19 

64 GOSUB 2ie:NS=CHRSCQ) :IF NS="\" OR N 
S="J" THEN ? "Refer to it by color. ":G 
OTO 50 

65 GOSUB 69: IF NOT USR CLOOK, CL7, ADR C" 
A"),C8) OR MSt392,392)="«" THEN 68 

66 IF CZ=65 OR Z=70) AND 0=65 THEN 68 

67 MSC394,394)="»" 

68 Z=Z-64:0N Z GOSUB 95,124,139,150,16 
3, 169, 174, 177, 181, 185, 189, 198: GOTO 58 

69 SS=SS+C15:IF SS=C60 TH^N SS=CO:MM=M 
M+C1:IF HM=C60 THEN DR=C1:G0T0 44 

70 RETURN 

71 Q=USRCL00K,ADRCCS),V,C8) :IF MOT Q 
THEN 19 

72 IF Q>C6 THEN Q=:0-C6:0N Q GOTO 85,89 

73 Q=Q*Cl:Z=ASCCCLSCO,0)) :IF Z=63 THEN 
? "You can't go that way.":GOTO 50 

74 GOSUB 69 

75 GOSUB 210: GOSUB 16: GOSUB 27:MSCQ,0+ 
C14)=CLS:STSCC5,C5)=CHRStZ) :GOSUB 27:C 
LS=MSC0.«+C14) 

76 ? OKS: POSITION C2,C0:? ttC2;"Your lo 
cation:"; :position C2,ci 

77 Z=Z-64:0N Z GOSUB 29,29,30,31,29,29 
,29,29,33,34,32,35,36,36,36,37,36,36,3 
6,36,36,36,38,39,40,41 

78 POSITION C2,C4:? ttC2;"You can go: " 
;:FOR I=C1 TO C6:IF CLSCI+C1,I+C1)<>"? 
" THEN ? ttC2;CSCI,I);" "; 

79 NEKT I 

80 K1=USRCFAD,C6) : K1=USR CFAD, CIO) :POSI 
TION C2,C6:? ItC2;"You see: "; :H=C6 

81 FOR I=C1 TO C8:Q=ASCCCLSCI+C7,I+C7) 
)-64:IF QO-Cl THEN RESTORE 247+«:HEAD 

KS:P0SITI0N 11, X:? ttC2;KS:K=K+Cl 

82 HEHT I:IF X=C6 THEN POSITION 11, X:? 
ttC2;"Nothing interesting" 

83 IF FLAG=C1 THEN FLAG=CO:GOTO 85 

84 GOTO 50 

85 ? OKS:GOSUB 17:P0SITI0N C2,C15:? ttC 
2;"You have: "; 

86 X=C15:FpR I=C1 TO C4 : Q=ASC CSTS CI , I) 
)-64:IF OO-Cl THEN RESTORE 2474Q:READ 

KS:POSITION C12,X:? ttC2; KS :K=X+C1 

87 NEXT I:IF X=C15 THEN POSITION 12, X: 
? ttC2; "Nothing" 

88 GOTO 50 

89 ? "Type □ to^save, IdMUtW to guitQ" 
;:INPUT KS:IF KSO-Y" THEM CLOSE ItC2:G 
RAPHICS CO:EMD 

98 CLOSE ttCl:POKE 559,34:? "Position S 
ave: Hisk or QapeQ"; :INPUT nS:IF NSO" 
D" AND NS<>"T" THEN 50 

91 TRAP 90:KS="Dl:SAUE.DAT":IF NS="T" 
THEN KS="C:" 

92 POKE 559,C0:P0KE 54272, CO:OPEN ttCl, 
C8 , CO, KS : MS C401 , 405) =STS : GOSUB 27 : MS CO 
,0+C14)=CLS 

93 FOR 1=325 TO CI STEP -81:? ttCl;HSCI 
,1+88): NEXT I:? ttCl; NOUNS:? ttCl;CES:? 
ttCl;ClS:? ttl;MM:? ttl;SS:? t»l;SC 

94 CLOSE ttCl:POKE 559,34 :POKE 54286,19 
2:G0T0 55 

95 0=0-64: GOSUB 23: IF NOT X AND NS="A 
" THEN NS="B":Q=C2:G0SUB 23:IF NOT X 
THEN 22 

96 IF NOT X THEN GOSUB 24: IF NOT Y T 
HEN 22 

97 ON GOTO 101,103,104,106,99,99,107 
,99,99,109,110,99,99,112,114,117,117,1 
15,180,99,116,117 

98 ON 0-22 GOTO 122,111,118,121 

99 ? "SeeMS ordinary .":RETURN 

100 ? "Looks dangerous.": RETURN 

101 IF MSC392,392)="?" THEM ? "Has a r 
ed light!":RETURM 

182 ? "It's deactivated. ":RETURM 

183 ? "Paint covers lens.":RETURN 

104 IF MSC391,391)<>"0" THEN ? "Not HU 
ch paint left.":RETURN 




Make 
Computer Palace 

Your ATARI Source!!! 




COMPUTER 
PAIACE 



MONKEY WRENCH II 

Now Available 
for the XL! 

Open up a whole new 
world of Basic computing 
ease, 33 new direct mode Basic 
commands and functions. Also 
includes a machine language 
monitor with 16 commands to 
interact with the 6502. 

Cartridge 

specify 600 or XL Series 




$44.90 




10-SSDD 
DISKEHES 



Our 
high quality 
double 

density! 



ONLY $15.95 




Now 

use both sides 

of your diskettes 

Simply place the disk against the built 
in stops and squeeze. 

The Quorum ONLY 

DISK NOTCHER $14.95 



From Big Five 



• 10 DiM«r«nt 5cr*«ns 

• 16K Cinridge 

• Sp*ctM:ulai Sound 
A Graphics 



OUR PRICE 

°'^"S17.95 

'Limited quantities. 





48K 

Disk or Tape 

ZOMBIES 



From 
Bram 



Fasl. lurious action 

Scrolling. 3-0 gfaptiics 

1 playef ot cooperative 2-playef mocies 

74 colorful scieens ^ 

Mult, levels $31.50 




FRT 



EPSON 
Compatible 

LEGEND 

PRINTER 



Features unique "square dot" print head 
with the best print quality for the money. 
80 CPS, bi-directional and Epson con 
patible. Plain or Pin-fed paper. 





OKIMATE 10 
Color Printer; 

Only 
$219.00 

+ FRT 

Our low price includes the Plug'n Print 
interface! Print quality reports, financial 
state ments, dazzling charts or graphics 
in over 26 colors and 240 words per 
minute. 



Another 
Winner 
from ,3^^/: 
Micropose ^^■' 
48K Disic 't 

$31.50 

Strap into your ejection seat and get 7eady for 
air combat in the electronic cockpit of the 
520.000,000 F-15 STRIKE EAGLE!' This one has 
It all after burners, multiple radars, air to air 
missiles, cannon. 3-D and more Includes 7 
different combat missions. 4 skill levels and an 
infinite variety of scenarios. 




THE 

DISK 

BANK 



$15.95 



stores up to 50 disks Features smoked 
gray cover with snap-lock, dividers, and 
built-in carrying handle. 



^^^^^»^^ from 



Outsmart Your Friends 
Outwit the Dragon . . . 
Join tlie Quest . . . 

$39.9548KDisl( 
(Program Covers 4 Disk Sides) pQygj software 

A new concept in computer gaming. Inteller^tual 

challenge, strategy and arcade action. Each player assumes the role of a 

lord with a questing party of three characters Complete the quest, earn the 

most gold by correctly answering questions and battling the dragon. Win 

the favor of the king and thus, the game. 

• Utility Disk— 1000 additional questions plus create your own . . . $24.95 




FREE 
CATALOG 

wrth any OfOer or send SI j;:i^-..:r 
(refundable with (irsl purchase) //~._^- 

This is the most 

comprehensive 

Atari reference 

catalog available! 

It contains over 

3000 software & hardware 

listings with illustrations 

and descriptions! 

IF YOU DON'T HAVE OUR 
CATALOG... YOU'RE 
MISSING OUT! 




ATARI REPAIR PARTS 

Joystick PC board 
Joystick cord 
Joystick inner handle 
13-Pin I/O Plug 

6 ft I/O Cord 

Printer Cable 

Ivlonilor Cable 



$ 2 49 
295 
1 49 
9 95 
1995 
, 2995 
14 95 




Tlie 

Ultimate 

Screen 

Dump 

Program 

This powerful and easy-to-use utility will 
allow you to dump almost any Atari text 
or graphics screen to your printer (even 
while the program is running!) 

48K Disk 

For All Computers 



$26.95 




ATARI LIGHT PEN 
(with ATARIGRAPHICS 16K Cartridge) 

Draw freehand or use automatic circles, 
squares, mirror images and other creative 
graphics in 128 colors. Includes pop-up 
menus, 2880 color patterns, pattern fills, 
etc. More software coming for education, 
entertainment, programming and 
applications. 



NEW ATARI PRICING!* 



48K 

One of the most versatile 
data-base programs available. 

^ • fvlalntain your book library. ,, 

^ • Organize your record collection... 

^ • Index your recipes... 

•— • Catagorize your stamp collection... 

jj- • Unlimited applications! 

^ Features: • single or Double Densif 

^ • Lightning Fast Retreival 

J •FastSortsOn Any Field C^Q QC 

Z •ivlucfi fvlore... »J>^3- JO 



RCP 

DRIVE 

STACKER 

Only 
$19.95 

This attractive smoked-acrylic stand allows 
you to stack 2 Indus GT Drives for conven- 
ient operation (also fits the RANA 1 000 and 
Concorde drives), or use as stand for 
modem, telephone, disk tile, etc. 




Atariwriter 

Visicalc 

SynCalc 

SynFile 

SynTrend 

Centipede 

Defender 

Donkey Kong 

Donkey Kong Jr 

Eastern Front 1941 

ET Phone Home 

Dix 

Star Raiders 

850 Iritertace 

1010 Recorder 

1020 Color Plotter 

1025 Dot Matrix Pnnter 

1030 Direct Connect f^odem 
' Atari Toucn Tablet 
• Atari Light Pen 
' Assembler Editor 
' Microsoft Basic II 



$39 95C 

$5500D 

J55 OOD 

555 OOD 

$55,000 

S13,95C 

$35,70C 

$35 70C 

$35 70C 

$1395C 

S13,95C 

S13 95C 

$1395C 

$139 50 

$65 70 

$99 95 

$239 50 

$75 70 

$54 95 

$49 95 

$31 50C 

$55000 



■SPECIALS!- 



• Sands of Egypt $9 95DT 

• Crasslire $9 95DT 
. Threshold $9 95D 

• JawBreaker $9 95D 

• SeaDragon S9 95D 

• Shamus $9,950 

• Speedway Blast $9,95C 

• MatchRacer S9,95DT 

• Pathfinder $9,950 

• Krazy Shootout $9 95C 

• Boulders & Bombs $9,95C 

■ T- Tape D: Disk C: Cartridge 



DRIVES— DRIVES— DRIVES 

Atari Rana Trak 

Indus Percom Amdek 

CALL FOR SPECIAL 

PRICING! 



COMPUTER 
RAIACE 



OPEN M-F, 9-6 Sat, 10-4 (Pacific Time) 

2160W llthAvenue Eugene. Oregon 97402 




USE YOUR CREDIT CARD & CALL 

Toll Free 1-800-452-8013 

• ORDERS ONLY, PLEASE • 

There's never a penalty for using your credit card! 
For Information, Call (503) 683-5361 



SHIPPING INFO: Minimum $2 90 Ground, S4 75 Air Actual 
Cost depends on weigtit Call (503) 683-5361 (or information 
WARRANTY INFO: Everyttiing ttiat we sell is warranlied by 
ttie manufacturer II any item purcfiased from us tails to per- 
form properly wtien you receive it. call us at (503) 683-5361 
so tliat we can assist you. No returned merchandise accepted 
wittiout autfiorization Defective software will be replaced 
with another copy of the same program, ottierwise. no soft- 
ware is returnable 



CIRCLE #131 ON READER SERVICE CARb 
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195 ? "If s eMptyi": RETURN 

186 ? "Says: Caneras off. Back after 

launch. ":RETURN 

197 ? "Door is securely locked. ":RETUR 

N 

108 ? "It's unlocked. "ZRETURN 

199 ? "Says: ";CE5tC6,C10) :RETURM 

118 ? "5ays: ";CES<C1,C5J :HETURH 

111 ? "Says: HARMING - LIQUID OXVGEN 
":? "►►EHTREME COLD": return 

112 IF USRCL00K,CL7,ADRC"I">,C8> THEN 
? "It's bolted shUt.":RETURN 

113 GOTO 99 

114 ? "It's filled With a freezing «is 
t.":RETURN 

115 ? "It's screwed shut.": RETURN 

116 ? "It's securely nailed shut.":RET 
URN 

117 ? "It's tiCking!":RETURN 

118 ? "TiMe is 08:";:IF HM<C10 THEN ? 
"0"; 

119 ? MM; ;:IF S5<C18 THEN ? "8"; 

128 ? SS: RETURN 

121 ? "Hopelessly wrecked >":RETURN 

122 IF MSC393,3933<>"?" THEN 185 

123 ? "There's a clock inside!":RETURN 

124 GOSUB 24:IF Y THEN ? "Vou already 
have that.":RETURN 

125 Z=USRCL00K,5T,fiDRt"?">,C4} :IF NOT 
Z THEN ? "You can't carry any Hore.": 

RETURN 

126 GOSUB 23: IF NOT K THEN 22 

127 IF USR f LOOK, ADR C'ABGHINORSTUHXt"), 
N,C14) THEN 28 

128 IF NS="P" then DRr.C2:G0T0 44 

129 IF NS="Y" THEN MS C393, 393J ="«" 
138 IF NS="U" THEN ? "YOU can't 1 i f t i 
t.": RETURN 

131 IF NS<>"Q" then 137 

132 IF N0UN$t64,64)<>"T" THEN 44 

133 H0=C0:F0R HT=C1 TO C4:IF STSCHT,HT 

,-..,« J^^^^ HOrHo+ci:iF ho<c4 then hoch 

03=HT 

134 NEXT HT:IF H0<C3 THEN ? "You'll ha 
ve to drop sonething.": RETURN 

135 STS CHO ecu , HO CCl) J ="0" : ST$ CHO CC2J , 
HO <C2J ) ="R" : STS CHO CC33 , HO CC3} J ="T" : GOS 
UB 138 :NS="R": GOSUB 23 

136 GOSUB 138:NS="T":G0SUB 23:G0SUB 13 
8:G0T0 28 

137 GOSUB 138:STSfZ,Z)=NS:G0T0 28 

138 CLSCH+C7,X+C7J="?":RETURN 

139 GOSUB 25:IF HS="Q" AND CL$CC1,C1J= 
"U" AND USR(L00K,CL7,ADRf"0"),C8) THEN 

43 
148 IF USR (LOOK, ADR C"QRT"),N,C3) THEN 
145 

141 X=USR(L00K,CL7,ADH("?">,C8) :IF NO 
T H THEN 21 

142 STS(Y,YJ="?":IF CLS fCl,Cl) ="U" AND 
USR (LOOK, CL7, ADR ("0"},C8) THEN ? "It 

falls into the hatch!":GOTO 28 

143 IF NS=;"Y" THEN N$="Z" :NOUN$ (88, 88) 
="Z":? "It sMashes into a thousand pie 
ces!" 

144 CLS(H+C7,K+C7)=HS:GeT0 28 

145 GOSUB 148:IF H0<C3 THEN 21 

146 CL5(H0(C1] .H0(C13J="0":CLS(H0(C2), 
HO (C2 J ) ="R" : CLS (HO (C3) , HO (C3> J ="T" : Hi- 
"Q":GOSUB 24:ST5(Y,YJ="?" 

147 NS = "R":GOSUB 24 : STS (Y, Y) ="?" : NS="T 
": GOSUB 24:ST5(Y,Y)="?":G0T0 28 

148 H0-C8:F0R HT-Cfl TO C15:IF CL5(HT,H 
TJ="?" THEN H0=H0+C1:IF H0<C4 THEN HO ( 
HO)=HT 

149 NEXT HT: RETURN 

158 GOSUB 23: IF NOT X THEN 161 

151 IF HS="U" then 116 

152 IF NS="G" THEN ? "The door won't b 
udge.": RETURN 

153 IF NS="P" OR NS="Q" THEN 44 

154 IF NS="R" AND USR (LOOK, ST, ADR ("L") 
,C4) THEN DR=C2:G0T0 44 

155 IF HS="R" THEN 115 

156 IF NS="N" AND MS (396, 396J ="»" THEN 
CLS (X+C7 , X+C7) ="0" : NOUNS (52 , 52) ="0" : G 

OTO 28 



157 IF NS="N" THEN ? "Bolts won't let 
you.": RETURN 

158 IF NS<>"g" THEN 161 

159 NS="?":XS=X: GOSUB 23: IF NOT X THE 
N 21 

168 CLS(XS+C7,XS+C7)="M":N0UNS(72,72):: 
"M" : CLS (X+C7 , X+C7) ="Y" : GOSUB 123 : GOTO 
28 

161 GOSUB 25: IF NS="P" OR HS="a" THEN 
44 

162 GOTO 26 

163 IF NS<>"G" THEN 28 

164 GOSUB 23: IF NOT X THEN 22 

165 IF CLS(C1,C1)<>"K" THEN ? "There's 
no keyhole!'<:RETURN 

166 Y=USR(L00K,ST,ADR("F"),C4) :IF NOT 

Y THEN ? "You don't have a key.":RETU 
RN 

167 CLS (C3 , C3) =" J" : CLS (C8 , C8) ="?" : GOSU 
B 168:P0P :GOTO 78 

168 ? "The door slides open and disapp 
ears ' " : RETURN 

169 Y=USR(L00K,ST,ADR("C"),C4) :IF HOT 

Y THEN ? "You don't have any paint.": 
RETURN 

170 PAINT=VAL(MS(391,391)) :IF NOT PAI 
NT THEN ? "Can is enpty !" :RETURN 

171 GOSUB 23: IF NOT X THEN GOSUB 25 

172 PAIHT=PAINT-C1:MS(391,391)=STRS{PA 
INT):IF NS="A" THEN CLS (X+C7,X+C7)i:"B" 
:GOTD 28 

173 ? "What a nice color ■":RETURN 

174 IF NOT USR(L00K,ADR("DJKXYZ"],N,6 
) THEN 28 

175 GOSUB 23:G0SUB 24:IF NOT X AND N 
OT Y THEN 22 

176 GOTO 95 

177 IF NS<>"R" THEN 20 

178 GOSUB 23:G0SUB 24:IF NOT X AND N 
OT Y THEN 22 

179 IF NOT USR(L00K,ST,ADR("L"),C4) T 
HEN ? "You have nothing to unscrew it 
With.":RETURN 

180 DR=C2:G0T0 44 

181 IF HS<>"I" THEN 28 

182 GOSUB 23: IF NOT X THEN 22 

183 IF NOT USR(L00K,ST,ADR("M"),C4) T 
HEN ? "Bolts are too tight .":RETURN 

184 CLS (C18 , C18) ="?" : MS (396, 396) ="«" : P 
OP :? 0KS:G0T0 88 

185 GOSUB 23: IF NOT X THEN 22 

186 IF NS<>"U" THEN 188 

187 CLS(C4,C4)="Y":? "You found soHeth 
ing!":POP :GOTO 78 

188 ? "Why bother?": RETURN 

189 GOSUB 23: IF NOT X THEN 22 

190 CC=398:CS=C9:IF CLS(1,1)="Z" THEN 
CC=399:CS=C5 

191 C0DE=UAL(MS(CC,CC)) :IF C0DE=C6 THE 
N 188 

192 IF NS<>ClS(CS+CODE,CS+CODE) THEN 2 
88 

193 C0DE=C0DE*C1:MS(CC,CC)=STRS(C0DE) : 
IF C0DE<C6 THEN ? "The button beeps so 
ftly.":RETURN 

194 GOSUB 168:IF CLS(C1,C1)="R" THEN C 
LS (C3 , C3) ="U" : CLS (C9 , C9) ="?" : MS (317 , 31 
7) ="R'' : MS (323 , 323) ="?" : GOTO 197 

195 IF CLS(C1,C1)="U" THEN CLS(C2,C2)= 
"R" : CLS (C8 , C8) ="?" : MS (258 , 258) ="V" : MS ( 
264,264)="?":G0T0 197 

196 CLS (C6 , C6) ="M" : CLS (C8, C8) ="?" 

197 POP :GOTO 78 

198 GOSUB 23: IF NOT X THEN GOSUB 25 

199 IF NOT USR(L00K,ST,ADR("E"),C4) T 
HEN ? "You have nothing to cut it with 
• " : RETURN 

288 IF NS="Q" OR NS="T" THEN ? "It's a 
iready cut.":RETURN 

281 IF NS="D" OR NS="J" OR HS:="K" THEN 
188 

282 IF NS="P" THEN 285 

283 IF NS<>"S" then 29 

284 NOUNS (64 , 64) ="T" : CLS (X+C7, X+C7) ="T 
":60T0 287 

295 GOSUB 148: IF H0<C2 THEN 21 
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286 CLS f K+C7 , X+C73 ="«■■ : NOUN$ t56 , 56 J ="Q 
" : CLS f HO tClJ , HO ecu ) ="R" : CLS CHO CC2} , HO 
<C2>J="5" 

207 ? OKS.'POP :GOTO 80 

208 ? "You hear a siren!" 
289 MS C394, 394) ="«": RETURN 

210 IF MS €394,394)="?" THEM RETURN 

211 DR=C3:G0T0 44 

212 READ 0FF,FLAG,C0,C1,C2,C3,C4,C5,C6 
,C7,C8,C9,C18,C12,C14,C15,C16,C60,C789 
,C7ie 

213 GOSUB 14: POKE 7 52, CI:? "1^44444 ^Ko 
H Hudson's";? "4 



ADgENTURE at Vande 



214 ?^U> to 1984 O NOLOG COHP Utinq";P 

05ITI0N ci2,ci6:? " ■KfliiQB^Qnai" 

215 DIM MSf4e6),CLStlS),KSC24),NSf4} ,V 
S C4) , VERBS t68) , NOUNS (92) , CS (9) , STS C5) 

216 DIM H0C3),0KS(5),DHS(2e),CESCie),C 
IS(18) :0KS="0kay.":DHS="You don't have 

that." 

217 FOR X=C1 TO CIO :CES CX) ="M" : CIS tX) = 
"H":IF RNDCCOXO.5 THEN CES CX)="G":CIS 
CX)="I" 

218 NEXT X:IF CIS (C1,C5)=CIS (C6,C10) T 
HEN 217 

219 H0UNS="CAMACANCN0TDSCIEKEYFD00GNHI 
HGRAIBLUJPINKSCRLMREIWATNBAGPPANRHIRSC 
RAUCABVSIGXCLOYBOL [BUT\PAP] " 

220 VERBS="EXAAL00ATAKBGETBDR0CLEAC0PE 
DUNLE5PRFPAIFREAGUNSHREHIM0VJPU5KPREKC 
UTL" 

221 CS="N5EMUDIQ" : L00K=1605 : CL=ADR tCLS 
) :CL7=CL*C7:V=ADR(US) :N=ADR(NS) :ST=ADR 
C5TS) :FAD=1712:MM=C0:S5=CO 

222 RESTORE 235 :MS (CI) ="?" :MS (406) ="?" 
:MS(C2)=MS:F0R I=C1 TO 376 STEP C15:RE 
AD CLS:MS(I,I+LEM(CLS))rCLS:NEXT I 

223 MS(391,405)="2??????11?????I":CLS= 
MS(121):F0R 1-1536 TO 1753:READ a:POKE 

I, Q: NEXT I 

224 POSITION C4,C16:? " Press MfW-m 
to begin new gane.":? "4 Press Miia>iii 
n to restore old gaMe.Q" 

225 IF PEEKC53279)=C6 THEN 11 

226 IF PEEK (53279) =C3 THEN 228 

227 GOTO 225 

228 CLOSE tlCl:POKE 559, 34 : POSITION C8, 
28:? "Load froH Hisk or QapeQ"; :INPUT 
NS:IF MS<>"D" AND NS<>"T" THEN 228 

229 POKE 559,Ce:P0KE 54272, CO : TRAP 228 
:KS="D1:SAVE.DAT":IF NS="T" THEN KS="C 

a Kl 

230 OPEN ttCl,C4,Ce,KS:TRAP 32767:F0R I 
=325 TO CI STEP -«1 

231 INPUT ttCl,MS:MS(I,I+80)=MS:NEXT I: 
MS(4e6,406)='"':INPUT ttCl, NOUNS : INPUT tt 
C1,CES:IHPUT ttCl,ClS 

232 INPUT ttCl,MM:INPUT ttCl, SS :INPUT ttC 
1,5C:CL0SE nci :ST$=MS (401, 485) : GOSUB 2 
7:CLS=MSC0,Q+C14) 

233 SFLG=Cl:POKE 559,34:G0T0 11 

234 DATA 40000,0,0,1,2,3,4,5,6,7,8,9,1 
0,12,14,15,16,60,709,710 

235 DATA ADFBA, BB?BA?N, C?H???UF, DLAEK, 
EEIFD,FAKFE,GHKHG,HCGHG,IE?????CV, JK?? 
??yD,KF?GD??G,L?D????AJ 

236 DATA MNMNQ, NMRHMB?A, OSSTO, P?????SA 
E,QMRQQ??AL,RN?SQ??A6HI,S0RT0P,TTSU0,U 
U??TC?NXI,y?X??J?GHI 

237 DATA H?????ZAPK, XV?????AU, V??ZH??M 
,Z???Y??GHI 

238 DATA 104,104,133,206,104,133,205,1 
04,133,204,104,133,203,169,0,133,213,1 
62,25,202,240,42,24,165,205 

239 DATA 105,4,133,205,165,206,185,0,1 
33,266,24,160,0,177,203,209,205,208,23 
1,200,177,203,209,205,208 

240 DATA 224,200,177,203,209,205,208,2 
17,200,177,205,133,212,96,169,0,133,21 
2,96 

241 DATA 104,104,133,206,104,133,205,1 
04,133,204,104,133,203,169,0,168,133,2 
13,177,203,133,207,104,104,168 

242 DATA 136,48,10,165,207,209,205,208 
,247,200,132,212,96,169,0,133,212,96 



243 DATA 184,104,141,1,2,104,141,8,2,1 
73,48,2,133,203,173,49,2,133,284,168,2 
4,169,138,145,283 

244 DATA 169,8,141,243,2,96,0,72,138,7 
2,169,0,162,10,141,18,212,141,24,288,1 
42,23,288,238,288 

245 DATA 165,288,41,16,74,74,74,141,1, 
212,104,170,104,64 

246 DATA 104,104,104,170,165,88,133.20 
3,165,89,133,204,216,24,202,48,15,165, 
203,105,48,133,203,165,204 

247 DATA 105,0,133,204,24,144,238,160, 
159,169,0,145,203,136,288,251,96 

248 DATA Surveillance canera 

249 DATA Painted caHera 

250 DATA Spray can 

251 DATA Note 

252 DATA SciSSOrs 

253 DATA Keys 

254 DATA Door 

255 DATA Hhite button 

256 DATA Gray button 

257 DATA Blue paper 

258 DATA Pink paper 

259 DATA Screwdriver 

260 DATA Mrench 

261 DATA Hatch 

262 DATA Open hatch 

263 DATA Bag 

264 DATA Bag With gaping hole 

265 DATA Metal panel 

266 DATA Hire 

267 DATA Severed Hire 

268 DATA Hooden crate 

269 DATA Closed cabinet 

270 DATA Open cabinet 

271 DATA Sign 

272 DATA Clock 

273 DATA Broken clock 

274 DATA Bolts 



CHECKSUM DATA. 

(see page 8) 

10 DATA 344,840,379,501,975,788,167,51 

1,94,559,669,532,529,485,291,7656 

25 DATA 933,494,50,131,406,537,515,962 

,880,484,918,500,115,591,92,7608 

40 DATA 669,608,550,92,909,903,752,433 

,598,572,252,77,190,341,970,7916 

55 DATA 280,772,439,662,804,359,127,14 

9,558,227,610,940,56,666,260,6909 

70 DATA 764,858,784,336,594,270,961,81 

0,270,411,552,853,804,651,631,9549 

85 DATA 137,784,345,643,988,683,980,51 

,586,945,297,708,831,821,215,9014 

100 DATA 154,148,416,575,528,246,822,6 

3,826,673,464,244,318,529,293,6299 

115 DATA 558,277,410,553,60,532,862,62 

9,305,764,806,854,85,955,995,8645 

130 DATA 988,799,952,229,572,429,1,227 

,831,721,67,459,115,782,664,7836 

145 DATA 769,417,328,255,70,111,812,54 

2,791,855,811,709,400,810,305,7985 

160 DATA 475,954,502,930,864,181,177,6 

10,823,703,271,710,352,453,46,8051 

175 DATA 326,538,959,329,709,297,974,8 

68, 562, 265, 871, 840, 81, 296, 875, 8790 

190 DATA 963,599,198,803,637,116,745,3 

70,723,822,8,936,795,938,938,9591 

205 DATA 757,759,86,216,325,122,280,41 

0,677,985,296,555,584,458,383,6893 

220 DATA 729,834,940,348,505,632,846,7 

11,164,476,164,687,600,177,358,8171 

235 DATA 88,919,144,662,260,231,953,64 

3,504,551,816,481,497,322,957,8028 

250 DATA 149,308,19,307,312,846,463,34 

9,374,640,586,255,369,877,83,5937 

265 DATA 472,314,623,705,33,593,311,28 

6,661,350,4348 
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Assembly listing. 



• !•■ 




NOUN/VE 


;rb decoder 




0103 












0110 




Syl 


ntax: 


N-U8R(ML.TL-4.NL> 


0113 




-«ddr at thl« routlh* 


0120 




TL 


-«ddr o* lookup 


tatala 


0123 




NL 


•«ddr at currant 


noun/varb 


0130 












0133 




Pr. 


ogrAM •Quatva 




0140 












01-43 


NOUN 


"»CB 


1 noun add 


r aointar 


0130 


TABLE-*CD 1 t«bla 4ddr aolntmr 


0133 


NRET 


-»D4 


I BASIC raturn addr 


0160 


I 










01A3 






PLA 




tt arauaanta 


0170 






PLfl 




nab of tabla addr 


0179 






3Tft 


TABLE-M 




0ia« 






PLA 




Imb 


0189 






STA 


TABLE 




0190 






PLA 




«ab of noun addr 


0199 






STA 


NOUN-l-l 




0200 






PLA 




lab 


0209 






STA 


NOUN 




0210 






LDA 


• *00 




0219 






9TA 


NRET-M 1 


zaro Aab 


0220 






LDX 


t»19 1 


noun/varb count 


0223 


NEXT 


DEX 






0230 






BED 


NOPE I 


lllagal antry 


0239 






CLC 






0240 






LDA 


TABLE 1 


+3 to polntar 


0249 






ADC 


t*04 




0290 






STA 


TABLE 




0299 






LDA 


TABLE*1 




02A0 






ADC 


• *00 




02«9 






STA 


TABLE+1 




0270 






CLC 






0279 






LDY 


• *B0 ? 


tnlt Indax 


0280 






LDA 


(NOUN>,Y ) 


gat lat char 


0289 






CHP 


(table!, Y I 


aqual? 


0290 






BNE 


NEXT 1 


nol naxt noun 


0299 






INY 


1 


In-llna -for apaad 


0300 






LDA 


(NOUN>,Y 1 


try 2nd char 


0309 






CHP 


(TABLE) .Y 




0310 






BNE 


NEXT 




0319 






INY 






0320 






LDA 


<NOUN>,Y ( 


try 3rd char 


0323 






CMP 


(Table! ,y 




0330 






BNE 


NEXT 




0399 






INY 


1 


■uat ba lagal 


03A0 






LDA 


(TABLE), Y ) 


gat Idan » 


03AS 






9TA 


NRET 1 


glva to BASIC 


0370 






RTS 


1 


and raturn 


0373 


NOPE 


LDA 


»»00 1 


0«lllaaal antry 


0380 






BTA 


NRET t 


glva to BASIC 


0383 






RTS 


1 


and raturn 



0100 
0103 
0110 
0113 
0120 
0123 
0130 
0133 
0140 
0143 
0130 
0133 
0160 
0163 
0170 
0173 
0180 
0189 
0190 
0199 
0200 
0209 
0210 
0219 
0220 
0229 
0230 
0239 
0240 
0249 
0290 
0233 
0260 
0263 
0270 
0279 
0280 
0283 
0290 
0293 
0300 
0309 
0310 



I CHARACTER SEARCH ROUTINE 
I 



Syntax: X-USR (HL, SVT, V,R) 
HL-addr of thia routlna 
SVT-addr of a to ba aaarchad 
V'addr at aaarch charactar 
R»# bytaa to aaarch 

Prograa aquataa 



CADR-«CB 


t char 


addr 


oolntar 


TABLE-*CD » varb 


tabla' DOlntar 


CHAR-*CF 


} charactar 


buftar 


BRET-«D4 

1 

PLA 


1 BASIC 


: raturn addr 






1 • arguAanta 


PLA 




j 


1 aab of tabla addr 


STA 


TABLE+1 






PLA 




1 


1 lab 


STA 


TABLE 






PLA 






1 aab of varb addr 


STA 


CADR-M 






PLA 




1 


1 lab 


STA 


CADR 






LDA 


• *00 






TAY 








STA 


BRET+1 




1 zaro aab 


LDA 


(CADR) , Y 


i 


r gat tha char 


STA 


CHAR 


1 


1 aava for latar 


PLA 




1 


1 aab of ranga (Ignora) 


PLA 




1 


1 lab 


TAY 






) uaa »* tha Indax 


NEXT DEY 








BHI 


NOPE 


1 


t fluat ba lllagal 


LDA 


CHAR 




t gat char 


CNP 


(TABLE) , 


Y 1 


r natch? 


BNE 


NEXT 


] 


r nol try Mnathmr 
1 yaal glva poaltian 
1 to BASIC 


INY 




1 


STY 


BRET 


1 


RTS 




i 


t and raturn 


NOPE LDA 


• •00 


1 


1 «*char not found 


STA 


BRET 




1 glva to BASIC 


RTS 






1 and raturn 



0193 I 

0200 

0203 

0210 

0213 

0220 

0223 

0230 

0233 

0240 

0243 

0230 

0233 

0260 

0263 

0270 

0273 

0280 I 

0283 I 

0290 I 

0293 

0300 

0303 

0310 

0313 

0320 

0323 

0330 

0333 

0340 

0343 

0330 

B333 

0360 

0363 

0370 

0373 

0380 

0383 



PLA 
PLA 
STA 
PLA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
LDA 
STA 
RTS 
BRK 



VD3LST<-1 

VDSLST 

SDLSTL 

BUFFER 

SDLSTLf-l 

BUFFERi-l 

••18 

••82 

(BUFFER) , 

• •00 

CHACT 



• arguaanta 
■ab 8f DLI addr 



I find atart of 
I dlaplay Ilat 



I AOda Una 20 
I DL Inatructlon 



I turn off 

) Invaraa vldao 



I nark and of Inlt 
Thta la tha actual DLI handlar 

I aava accuaulator 



PHA 
TXA 
PHA 
LDA 
LDX 
9TA 
STA 
STX 
INC 
LDA 
AND 
LSR 
LSR 
LSR 
STA 
PLA 
TAX 
PLA 
RTI 



••00 

• •0A 
U8YNC 
C0LPF2 
COLPFl 
BLINCT 
BLINCT 

• •10 
A 

A 
A 
CHACTL 



1 aava X 

I black bkgrnd 

I whlta chars 



I Blink curaor 



I rastora A and X 



I back to BASIC 



0100 


t SCREEN ERASE SUBROUTINE 


0103 


1 CLEARS IN 4-LINE 


BLOCKS 


0110 


1 










01 IS 


1 Syn 

1 nL>. 


tax: 


X-USR(HL, 


ST) 




0120 


addr 


of thla routlna 


0123 


1 8T- 


■tartlna 1 Ina 


nuabar 


0130 


1 










0133 


1 PROSRAH 


EQUATES 






0140 


1 










0143 


BUFFER'aCB 1 acr addraaa buffar 


0130 


SAVn8C-^38 1 BcraantOD 


polntar 


0133 


1 










0160 




PLA 




1 


• arguaanta 


0163 




PLA 




I 


aab of llna^l tgnor 


0170 




PLA 




1 


lab 


0173 




TAX 




I 


aava in x-ragl«tar 


0180 




LDA 


SAvnsc 


1 


gat acraan 


0183 




BTA 


BUFFER 


1 


addraaa 


0190 




LDA 


SAVnSC-^l 






0199 




STA 


BUFFER*-! 






0200 




CLD 




1 


claar daclaal aoda 


0203 




CLC 








0210 


ADD40 


DEX 




1 


find window addr 


0213 




BHI 


CLEAR 






0220 




LDA 


BUFFER 


1 


add 40 


0223 




ADC 


• •28 






0230 




STA 


BUFFER 






0233 




LDA 


BUFFER+1 






0240 




ADC 


• *00 






0243 




STA 


BUFFER+1 






0230 




CLC 








0233 




BCC 


ADD40 






0260 


CLEAR 


LDY 


• •9F 


< 


clm*r 4 llnaa 


0263 




LDA 


• •00 


1 


apaca char 


0270 


SPACE 


STA 


(BUFFER) , 


,Y 




B273 




DEY 








0280 




BNE 


SPACE 






0283 




RTS 









Next issue: 

DEMON 
BIRDS 



0100 

0103 
01 10 
0119 
0120 
0123 
0130 
0133 
0140 
0143 
0130 
0133 
0160 
0163 
0170 
0173 
0180 

01 as 

0190 



I DLI /SLINK ROUTINE 



Syntax: USR (DLI , DLI-^X) 
DLl^addr of thla routlna 
X«offaat to DLI handlar 

Pro^rmm aquataa 



COLPF1-*D017 

COLPF2«aD0ia 

H9YNC-*D40A 

SDLflTL->0230 

VDSLST-*0200 

CHACTL-*D401 

CHACT-*02F3 

BUFFER-^CB 

BL1NCT-^D0 

I 

I First aat up tha DLI 



• • • • 
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32K Disk 



by Clayton Walnum 



Once upon a time there was an Atari owner who 
had the most horrendous time balancing his check- 
ing account. Each month, upon the arrival of his state- 
ment, he would slink to his desk in despair. There 
he would spend hours cursing and whining, as he tried 
in vain to bring his figures into agreement with the 
bank's. 

One day he could tolerate the situation no longer. 
He packed a loaf of bread and a flagon of wine and 
sallied forth into the magical Land of Software, in- 
tent on hunting up a Personal Checking Program. 

The Land of Software was a dazzling and wonder- 
ful place. There were many fine programs to choose 
from. Unfortunately, none seemed quite right. There 
was one that was relatively simple to use, but didn't 
support a memo field. There was another that sup- 
ported memos, but its printouts would have shamed 
a beggar. There was still another that had printouts 
of royal quality and even a place for memos, but the 
instruction scroll had been enchanted by an evil sor- 
cerer so that it had no end and read as if in a foreign 
language. 



The Atari owner cursed and whined in a familiar 
manner. All the programs he reviewed seemed to be 
bewitched in one way or another. There were graphs 
and budgets and reports and printer drivers, and so 
many extra "features" that one could set up finances 
for an entire kingdom. "Now that may be all right 
for some people," mumbled our hero, "but I just want 
to keep my checking account in order, not work out 
the national budget!" 

He was about to give up in despair when an idea 
occurred to him. Why not create his own Personal 
Checking Program? With a screech of delight, he be- 
gan to weave his spells. After several months of curs- 
ing and whining (mandatory for any enchanter), his 
sorcery was completed. He named his creation Micro- 
Check and lived happily ever after. The End. 

The end? 

Well, not really. This is just the beginning. This 
month, we will start to put together a complete check- 
ing system, including a check entry program, a check 
search program, an account balancer and a utilities 
module. 
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There are also three smaller programs that initial- 
ize and tie the system together: an AUTORUN.SYS 
file creator, a vertical blank interrupt (VBI) initializer 
and a menu program. All together, they form Micro- 
Check, a graphics oriented checkbook management 
program that will help you simplify and organize your 
checking account activities. 

What can MicroCheck do for you? You can enter 
up to one hundred transactions per month. These 
transactions can include checks, deposits and auto- 
matic withdrawals. All entries can be searched by 
month, number, amount and payee, with the results 
sent to the screen or printer. When you balance your 
account, MicroCheck will do all the calculations and 
display a final report. 

To keep MicroCheck simple to use, most program 
functions are prompted or menu driven. You won't 
have to continually refer to operating instructions to 
get good results. MicroCheck handles every neces- 
sary checking function, yet is simple and enjoyable 
to use. 

And, best of all, the first part is right around the 
next corner — so stick with me! 
The corner. 

All ready to start typing? Let's take a look at the 
program listings. 



Listing 1 is the AUTORUN.SYS creator. Type 
this program in and SAVE it to disk. Put a new 
disk containing DOS into drive 1. This will be 
your MicroCheck program disk. The programs 
that follow should all be SAVEd to this disk. 
RUN the AUTORUN.SYS creator program. An 
AUTORUN.SYS file will then be written to your 
disk, making MicroCheck auto-booting. Isn't this 
fun? 

Listing 2 is the title page and VBI initializer. 
Type this listing exactly as it appears and SAVE 
it to your disk under the filename START. You 
must use this filename, or the AUTORUN.SYS 
will not be able to run the program. 

Listing 3 is the menu program. Once again, 
type it exactly as it appears, then SAVE it under 
the unlikely filename of MENU. 

Listing 4 is the utilities program. Type it in 
and SAVE it under the filename UTILITY. 

Listing 5 is MicroCheck's central module, the 
check entry program. Type it in and SAVE it un- 
der CHECKBOO (short for "checkbook"). 

All set? Good! Go soak your fingers in a strong Ep- 
som salts solution to bring down the swelling, then 
get back to me. You deserve a break! 



ATARI HARDWARE!! 

810 Disk Drives $265 
810 Drive Kits $240 

810 Analog Upgrade, 
easy kit. ..$37 
810 Happy $18,5 
m) Interface $180 
800 Computer Kits, 
48K electronics $100 
400 Computer Kit $47 
48K Expansion $87 
800 Motherboard $37 
400 Motherboard $15 
ROM 'B' boards $17 
■GTIA' CPU board $18 
Power Adapters $15 
16K Memory board $19 
Microsoft Basic II $27 
Conv. Spanish $12.50 
Atari Pilot $20 
Basic cart kit $15 
Assembler kit $15 
We have many parts and IC chips!! 
MUCH, MUCH MORE!! 
FREE CATALOG!! 

CENTURIAN 
ENTERPRISES 

P.O. BOX 3233 
SAN LUIS OBISPO, CA 
93403-3233 
(805) .544-6616 
VISA & MC 
Office Hrs: Mon-Thurs. 10-5 



CIRCLE #132 ON READER SERVICE CARD 



BUY SOFTWARE DIRECT AT 
DISTRIBUTOR PRICES! 



GRAPHICS MADE SIMPLE: Many books leach how lo draw lines 
and circles, but they never show you how lo create complicated 
graphics screens Starting with basic concepts, such as using 
keyboard characters, this book/software package adds new ideas 
to the screen one at a time Also included on the disk are many 
examples, tools & editors. Chapters include Animation. Character 
Graphics, Player Missiles, Graphics Modes, Scrolling. Display 
Lists. ORIG $59.95, NOW ONLY $39.95. 

GAME DESIGN MADE SIMPLE: A fascinating and complete look at 
how a game designer creates an actual arcade game, step by step, 
IN BASICi You will build your own version o! SPACE INVADERS, 
adding Animation, Sound Effects, Game Logic, Scoring, and spe- 
cial effects to the graphics screens. The game looks and plays just 
like the onginahn the arcades ORIG $59 95, NOW ONLY 539.95, 

Both are usable by anyone with a little knowledge of BASIC, at 
least 48K of memory and a disk drive. Each comes with 2 full 
disks of examples, powerful machine language routines to add 
speed, and a 150 page book: 

ESI WRITER: This is a true word processor that will work with any 
printer It comes on disk and only requires 32K of memory It is 
the fastest WP for Atan you can buy. You are instantly anywhere in 
your file you want Features include a built in help screen, 
Justification, Search, Replace, Insed, Page Numbering, Headers. 
Centering and more li can load in other WP text files, has friendly 
messages, and even controls the screen colors. When you move 
text. It IS inversed so you can see jUst what text you are moving, 
copying, or removing ORIG $49.95, NOW ONLY S24. 95. 

THE MASTER MEMORY MAP: Goes through each memory location 
and tells you what it does, and what you can change to control the 
machme yourself. A 40 page quick reference costs S6.95 The 
new 300 page version has EVERYTHING you could want to know 
about the machine with 50 sample programs you can type in 
S15.95. 

We also offer 4 arcade games, 6 children's programs, and 23 
others, all priced under $15. SAVE 30%-70%. SEND A SELF 
ADDRESSED STAMPED ENVELOPE FOR A COMPLETE CATALOG. 



ORDER BY: CHECK, VISA, M/C OR C.O.D. 
ADD $3.00 SHIPPING & $2.00 MORE FOR C.O.D. 

COMPUTERS MADE SIMPLE! 

1974 Buck St., Dept. AN, Eugene, OR 97405 
(503) 344-2767 
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AFFORDABLE EXPANSION 

• Internally mounted 

• Doesn't use expansion port 

• Stable, solid, safe 

• Complete documentation 

• Limited soldering required 

• 90-day guarantee 



48K EXPANDER 

Enough memorv 
for most software 



'49 



95 



Upgrade Kit 

Upgrades 48K Expander to 64K SJ^J 



64K EXPANDER 

Enouoh rDenx)rY 
for*l proorams 



95 




79 



include S5.00 for shipping 

5 week deliverY for money orders 

6 week aeliverv for personal cnecks 

FIRSTiiianE 



PO BOX 543. Oregon CttV. OR 97045 
S03/656-554J 
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Off and running. 

Now that all the work is done, let's start using Mi- 
croCheck. Put the disk containing your new programs 
into your drive, then turn on the computer. Presto! 
MicroCheck is now on your screen. (If it isn't, you 
may curse and whine, then go back and check your 
typing.) 

After the program is finished showing off its name, 
the menu should load and run. Use the SELECT key 
to choose utilities, then press START. Your drive will 
beep happily as it loads the utility module. 

MicroCheck uses monthly files to store its infor- 
mation. Before you can begin entering transactions, 
these files must be created on a data disk. Remove 
your program disk from the drive and insert a blank 
disk. The disk you use will be completely erased! Make 
sure it contains no information you wish to retain. 

It 15 possible to have your data files on the program 
disk. If you wish to do this, hit SYSTEM RESET and 
change Lines 440 and 450 to REM statements. Now, 
when you run the program, the disk will not be for- 
matted. However, you should be aware that there is 
much less room for data. If you write a lot of checks, 
you may run out of space. 

Use the SELECT key to choose the new disk op- 
tion, then press START. When formatting is complete, 
you'll be asked for your name, address, starting bal- 
ance and the year. The starting balance is the last 
balance shown in your checkbook. 

When you've entered the necessary information, 
your monthly data files will be created. This takes a 
minute or two, so you may want to soak those swollen 
fingers a little more. When the files are complete, 
you'll be prompted to reinsert the program disk. Do 
so, then press any key. The menu will load and run. 

Entering checks. 

Use the SELECT key to choose the enter checks 
option, then press START. When prompted, remove 
the program disk from your drive and insert your data 
disk. If your data is on the same disk as the program, 
just press any key. 

Enter the month as a two-digit number (for exam- 
ple, 01 for January), then press RETURN. After the 
data for that month has loaded, you will see your bal- 
ance and a number of options at the bottom of the 
screen. 

To enter your first check (oh, boy!), press RETURN. 
You will be prompted to enter the day, the check num- 
ber, the payee, the amount and a memo. 

Enter the day as a two-digit number and press RE- 
TURN. If you have other checks to enter with the 
same date, when you're prompted for their dates, sim- 
ply press RETURN. 

There are four types of check numbers you may 
enter. The first is simply the number of your check 
in four digits (like this: 0001). 

The second type uses the letters DEP. This is a de- 
posit, and the amount entered will be added to your 
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IPRINT 



Till liniMATI: GRAPHICS | 
imtNTING PACKAGE FOR 
■WAHl LOMl'UTERS. NO 
OTHER PROGRAMS CAN 

DO ALL THIS. 



Prints your Atari ' Graphics Screens like you've never seen before! Even prints GT!A 
modes with 16 shades. Prints various sizes from 1/Sth page to GIANT Wail size posters- 
Allows you to enlarge and print any portion of ttie screen. Works wilfi standard paper 
and Epson, NEC. C. Itoh or Gemini printers. Prints vertically or horizon- 
tally. Special feature lets you modify pictures on ihe screen. Prints 
your own screens or tliose from Graphics Ivlaster, Micropainter, Koala 
Pad, Atari' Touch Tablet, Fun with Art, -^ ffon nc 

PAINT B/Graph, and others. Uniy 9^U.^O 

FREE; With any f\flagniprint order-PRINTALL. Allows you to pnnt your 
programs or files just as they appear on the screen. Clearly prints 
B*-p''-i*-''-'M'?/ ''" Sraphics symbols, even mOIlSX and control characters. 
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I Actually done I 
|with Magnlprint] 
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SOFTWARE 
Pf^OTECTION 

recHNioues 



GEOHGE mDHHlSOd- 









w- 



Top Selling Book 
(over 1Q0 pages] 
"ATARI SOFTWARE 
PROTECTION 
TECHNIQUES" 

ms how aU- 
ite pirates copy 
pfDB>ams, and how you 
led yout programs. Complete 
With disk of protection programs. 

S24.95 



Customizes your Atari- to transform it into one of the most powerlul program 
development tools ever • Allows you to alter functions ot your keyboard to lit 
ycur personal needs • Allows you lo give mjltipie commands that will execute 
aulomalically on systems start up or whenever you wish • Makes the com- 
puter seem to program itself • Can generaie common program lines or slale- 
menls from a single keystroke, greatly reducing typing time Imagine hitting 
one key (or comPinalion of keys) to generate any statement o( your choice 
instantly on the screen'" Lets cur50rmove50% faster* Works perlecilywilh 
Basic, Assembler. Pilot . or all by itself. This 100% machine language program 
was developed by a large scale systems programmer lor his own use. but is 
now available to everyone • Increases p'ogramming efficiency 
Reduces keying errors • Easy enough ior a beginner S16.95 | 

wlMPERSONArOR 

Create normally running back-up copies of your cartridges. Yes, for only I 
S29.95 you can have working copies of all your -IK. 8K, or 16K game I 
cartridoes for Atari'-' computers. Special software you receive will allow 
you to save the data from a cartridge to an ordinary disk lile. This disk | 
file will run just like the original cartridge when used with The Impersonator. 
Now you can put all your real cartridges away for safe keeping and use 
The Impersonator for everything. Each disk can hold 5 or more carlndges. 
^^■s^ NOTE: This product is intended for use as a back-up 
jM^^m^^' tool for your own cartridges. Alpha Systems does 
^■IWPl? not condone copying borrowed ny, v enn qe 
or rented cartndges- UNLT 9£9.9u 



milQ wtlBI 



Cassede DperanngSysiem (^os) 



I The only cassette ptTagrBm you'll ever need. COPIES: C.O.S. Copies all Atan^ cassettes - Copies disk files I 
I to cassettes - Copies single boot cassettes lo disk - Stores any cassette program to disk for safe keeping. I 
I DISPLAYS- Displays any cassette program in hex, ascii, or converts it to a readable assembler language I 
I file, (Compatible with Atari'^ assembler cartridge) ALTERS: Modifies the size, contents or combine and dissect I 
I whole programs. Modified files can be saved to disk or multi-stage cassette. 
\ All this on one disk for only 

Includes complete cassette tutorial. Including adding music to your cassette. 



$24.95 1 




B0NUS;0raerany3 ■ 
programs & get FREE, 
Deluxe Space Games 
(3 games on 3 disc),. 



I MAIL TO: Alpha Syslems/4435 Maplepark Rd./Stow, OH 44224 
■ Send check or money order. Include S2.00 shp. & hdlg. Ohio | 

residents add 5V2% sales tax. 
, CALL: 216-374-7469 lo charge lo MasterCard or VISA 
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balance, rather than deducted. You will also note that 
PAYEE will be automatically filled in as DEPOSIT. 

A third possible entry is AUTO. This type of check 
will become part of a special file containing AUTO- 
matic transactions. Each of these transactions will be 
deducted from your account automatically, every time 
you start a new month. The transaction will also be 
deducted from the current month at the time you en- 
ter it. You may have up to five AUTOmatic transac- 
tions on your data disk. 

The final type of check number is simply 0000. Use 
this whenever the other three don't apply — for in- 
stance, to make a change in your balance or to enter 
a transaction made through an electronic teller. 

You may enter whatever you like as the PAYEE. 

Check amounts may be entered as simple decimal 
numbers (for example: JO or 21.9). MicroCheck will 
format them automatically. 

After entering the amount of the check, you may 
enter a memo. If you don't wish to have a memo, just 
press RETURN. 

When you finish entering the check, you will be 
given new options at the bottom of the screen. If 
you're satisfied with what you've entered, press RE- 
TURN. The check will be entered and your balance 
updated. If you wish to make a change, use the edit 
option. 

Editing checks. 

To edit your entry, press the OPTION key, then hit 
the appropriate letter from the choices at the bottom 
of the screen. The cursor will appear in the portion 
of the check you have chosen. 

Type in the new entry, or press RETURN for no 
change. When you're satisfied with all entries, press 
E, and you'll be asked again to PUSH RETURN IF 
OK. Press RETURN to enter the check, or press OP- 
TION to return to the editing function. 

To review your checks. 

If you pressed RETURN, you'll again be presented 
with the original options at the bottom of the screen. 
Press the SELECT key to advance through the month, 
check by check. If you wish to change something, 
press OPTION, then follow the same procedures for 
editing as outlined above. 

When you reach the last check for that month, 
MicroCheck will return you to the original options. 
If you want to stop reviewing your checks before you 
reach the end, just press the letter E to end. 

When you have finished entering, editing and re- 
viewing your checks, press OPTION and SELECT 
simultaneously. The new data for that month will be 
saved to disk. 

Editing the AUTO file. 

Sometimes you may find it necessary to change one 
of the entries in your AUTO file. You can do this 
by entering the letter A in response to the ENTER 
MONTH prompt. After the file has loaded, use the 



SELECT key to choose the entry you need to work 
on. Editing is then accomplished in the same man- 
ner as above. 

You may erase an entire AUTO file and start fresh, 
by choosing the new auto option from the utilities 
menu. 

Starting a new year. 

The MicroCheck year runs from January to Decem- 
ber, so when Father Time turns his job over to that 
chubby little guy in the diaper, it's time to clean up 
your checking files. 

To do this, load the utilities module, then select 
the new year option. Make sure you have backed up 
your data disk before continuing! 

After being suitably warned that you'd better know 
what you're doing, you will be asked to insert your 
data disk. If your data is on the same disk as the pro- 
gram, just press any key. MicroCheck will then go 
happily on its way, moving all uncancelled checks into 
a special file known as MONTH00.DAT. At the same 
time, it will create new monthly files and clear out 
all of the last year's transactions (you did make that 
backup disk, right?) Your AUTO file, balance and per- 
sonal information will, of course, remain unchanged. 

Until we meet again. 

There you have it! Next month, we'll finish off the 
system by adding the account balancer and the check 
search program. You'll see that balancing a checking 
account doesn't have to remove ten years from your 
life. It can actually be fun. Until then, happy check- 
ing! n 



Listing L 

le DIM tiUli 

20 GRAPHICS 0:? "PUT DI5K CONTAINING D 

05 IN DRIVE" 

30 ? "THEN PUSH <RETURN>" : INPUT A$ 

40 OPEN ttl,S,0,"D:AUTORUN.SYS" 

50 READ A: IF A=-l THEN 70 

60 PUT tti,A:G0T0 50 

70 CLOSE ttl:? "ALL DONE!" 

80 DATA 255,255,0,6,142,6,162,0,189,26 

,3,201,65,240,5,232,232,232,208,244,23 

2,142,105,6,189,26,3 

90 DATA 133,205,169,107,157,26,3,232,1 

89,26,3,133,206,169,6,157,26,3,160,0,1 

62,16,177,205,153,107,6,200,202 

100 DATA 208,247,169,67,141,111,6,169, 

6,141,112,6,169,11,141,106,6,96,172,10 

6,6,240,9,185,131,6,206,106,6,160 

118 DATA 1,96,138,72,174,105,6,165,205 

,157,26,3,232,165,206,157,26,3,104,170 

,169,155,160,1,96,7,0,251,243,51 

120 DATA 246,67,6,163,246,51,246,60,24 

6,76,228,243,0,32,32,32,32,32,32,32,32 

,32,84,82,65,84,83,58,68,34,78 

130 DArA 85,82,226,2,227,2,0,6,-1 



CHECKSUM DATA. 

(.see page 8) 

10 DATA 579,597,733,32,330,673,373,862 
,823,335,99,956,685,7077 
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Listing 2. 



18 DIM R$fl},RC5}:RA=ADR(R$)+l 

2e FOR 1=0 TO 27: READ A: POKE RA+I,A:NE 

KT I 

30 DATA 104,104,104,162,255,160,58,202 

,208,9,136,208,6,170,202,138,208,241,9 

6,142,10 

40 DATA 212,142,22,208,24,144,235 

50 FOR X=1536 TO 1580: READ A: POKE K,A: 

NEKT X 

60 DATA 104,169,6,170,160,13,32,92,228 

,96,0,12,0 

78 DATA 174,12,6,165,20,201,7,208,11,1 

69,0,133,20,232,224,2,208,2,162 

80 DATA 0,189,10,6,141,199,2,142,12,6, 

76,95,228 

90 D=U5R 11536) 

100 GRAPHICS 17: POKE 559,0:DL=PEEK(56e 

)+256«PEEKt561)+4 

110 POKE DL-1,71:P0KE DL+2,7:P0KE DL*3 

.7 

120 POKE DL+11,2:P0KE DL+12,2:P0KE DL+ 

18,6S:P0KE DL+19, PEEK (5601 :P0KE DL42e, 

PEEKC561} 

130 POKE 708,12: POKE 752,1 

140 POKE 87,0;P05ITI0il 25 .0:? "HICROCH 

ECK": POSITION 28,1:? "fiHi" 

150 POSITION 25.2:? "I JlMi Jii;ifB " i POSIT 

ION 25,3:? ■HiHiia=Mii;^f'' 

160 POSITION 13,5:? "Copyright 1984":P 

OSITION 19,6:? "b!;" 

170 POSITION 3,8:? tt6; "CLAYTON MALNUM" 

:POKE 559,34 

180 POKE RA+23,22:A=USRCRA,7) 

190 GRAPHICS 0:POKE 559,0: RUN "D:I«ENU" 



190 IF 0LDR0H=4 THEN POSITION 3,4:? tt6 
; "ENTER CHECKS"; POSITION 3,6:? 116 ;"E 



200 IF 0LDR0H=:6 THEN POSITION 3,6:? 
I "SEARCH CHECKS": POSITION 3,8:? 116 ;■ 



mm. 



; "BALANCE ACCOUNT"; POSITION 3,10:? ItOj 

"mitKifS" 

220 IF OLDROH=ie THEN POSITION 3,10:? 
tt6; "UTILITIES": POSITION 3,12:? tt6;"3IE] 

II 

230 IF 0LDR0H=12 THEN POSITI ON 3.12;? 
tt6; "END": POSITION 3,4:? tt6 ; "{33SSKBI13 

CB" 

240 GOTO 70 

250 START=6:SELECT=5:P0KE 559,0 

260 FOR X=1664 TO 1700: READ A: POKE K,A 

;NEKT K 

270 DATA 72,130,72,238,159,6,174,159,6 

,189,128,6,141,10,212,141,26,208,224,3 

6,208,5,169.31 

280 DATA 141,159,6,104,170,104,64,31 

290 DATA 10,0,112,0,0 

300 GRAPHICS 17: POKE 559,e:DL=PEEK(560 

>+256»PEEKC561J+4 

310 POKE DL-1,198:P0KE DL+2,135 :POKE D 

L+3,134:P0KE DL+14,134:P0KE DL+18,134 

320 POKE DL+19,2;P0KE DL4^20,2:P0KE DL+ 

21,2:P0KE DLHl^22,2 

330 POKE DL+23,65:P0KE DL+24, PEEK (560} 

;POKE DL+25, PEEK (561) 

340 POKE 512, 128: POKE 513,6: POKE 54286 

,192 

350 POKE 708,218:P0KE 712,0:P0KE 710,1 

78 

360 POKE 1546,112: POKE 1547, 12: POKE 15 

55,2:PDKE 559,34:P0KE 20,0 

370 GOTO 20 



CHECKSUM DATA. 

{see. page 8) 



10 DATA 749,302,643,640,707,113,153,91 
4,840,849,205,537,199,197,785,7833 
160 DATA 16,331,734,878,1959 



CHECKSUM DATA. 

(see page 8) 



10 DATA 446,103,101,491,795,413,964,73 

,264,337,611,669,597,861,408,7133 

160 DATA 371,169,500,697,567,394,626,2 

6,506,350,696,398,997,488,853,7654 

310 DATA 216,997,27,127,50,879,507,280 

3 



Listing 3. 

10 GOTO 250 

20 POSITI ON 8.1;? 116 ; "C!Iin!l": POSITION 3 
,4;? tt6;"aJII9Haiia&': POSITION 3,6:? 
tt6; "SEARCH CHECKS" 

30 POSITION 3,8:? tt6; "BALANCE ACCOUNT" 
: POSITION 3,10:? t»6; "UTILITIES" 

40 POSITION 3,12:? tt6;"END" 

50 POSITION 7,18;? n6;"USE M«<ai TO C 

HOOSE ITEM": POSITION 9,22:? 1*6 ; "PRESS 

^BQD TO BEGIN" 

60 R0H=4:C0L=l:P0SITI0N COL, RON:? tt6;" 

=>" 

70 CONSOL=PEEK (53279) : IF CONSOLOSTART 

AND CONSOLOSELECT THEN 70 
80 IF CONSOL=SELECT THEN 160 
90 IF CONSOL=START THEN CH0ICE=R0H/2-l 
: GRAPHICS 0:POKE 559,0 

100 ON CHOICE GOTO 110,120,130,140,150 
110 RUN "D;CHECKB00" 
120 RUN "D;CHECKPRT" 
130 RUN "D:CHECKBAL" 
140 RUN "D: UTILITY" 
150 POKE 559,34:NEH :END 
160 0LDR0M=R0H;R0H-R0H+2:IF R0H=14 THE 
N R0II=4 
170 FOR X=l TO 40;NEXT X 

180 POSITION C0L,0LDROH:? tt6; POSI 

TION COL, RON:? tt6;"=>":P0KE 53279,0 



Listing 4. 

10 GOTO 200 

20 CLOSE ttl;OPEN ttl,4,0,"K:":P0KE 764, 

255:P0KE 702,64;P0KE 694,0 

30 IF PEEK (764) =255 THEN 30 

40 IF PEEK (764) =39 OR PEEK (764) =66 THE 

N 30 

50 GET ttl,A:CLOSE ttl: RETURN 

60 REH KltlCMKKICKKKK BRKDIS KKliKMKKlIKK 

78 I=PEEK(16) :IF I>127 THEM I=I-128:P0 

KE 16,I:P0KE 53774,1 

80 RETURN 

98 REH KKMMXMKMKKmt SNDl XmtMMltMlClCICKMM 

100 SOUND 0,100, 12, 8:F0R X=l TO 250:NE 
XT X:SOUND 0,0,0,0:RETURN 

110 REM MKMMfcMKKMKMlCK DELAY KKlCKlCltlCKmCKK 

120 FDR X=l TO 2000: NEXT X: RETURN 

130 REH MlCMICKICKXMMItK INSDAT mUmmtWKMKMM 

140 GRAPHICS 17:G0SUB BRKDIS: POSITION 

3,8:? tt6;"please insert": POSITION 3,10 

:? n6;"!;our data disk" 

150 POSITION 3,12:? * »?'' into drive Itl" 

: POSITION 3,22:? tt6 : ■■ IJrIA-l.W'lJMMA'J '' 5 GO 

SUB 20: RETURN 

160 REH MKieMMHKKKKlCK INSPRC 
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176 GRAPHICS 17:G05UB BRKDIS: POSITION 
3,5:? tt6;"please insert" :POSITIOM 3,7: 

? tt6;"prograH disk" 

180 POSITION 3,16:? Its ; • •\-M^iism-Mvm'Ave ' 
:GOSUB 20: TRAP 1208: RUN "D:HENU" 

190 REN MUmtMKKltWKm tllTIALIZE KKKWMMltldC 

200 DIN NANE$f20},ADDRESS$C2e),CITYSf2 

0) .BALANCES f 81 , H0NTHFILE$ tl3) , B$ 120) , C 

HECKS C63} 

210 INSDAT=140 : INSPR0=170 : N0DAT=1230 : S 

ND1=100 : DELAY=12e : BRKDIS=:70 

220 REN MmtMicicmtMMmcKN EHi mwKWMKKMKMic 

230 GRAPHICS 2:G0SUB BRKDIS: POKE 710,0 

;POKE 752,1: POKE 1555.2 :R0H=3 

240 POSITION 6,3:? tt6:"[ircnSSi'': POSIT 

ION 6,4:? tt6;"neH diSk"TPOSITION 4,3:? 

M6;"=>" 

250 POSITION 6,5; ? tl6;" new auto" 
260 ? " USE EHOaLTO PICK ITEN": 

? :? " PRESS ElHai TO BEGIN" 

270 IF PEEK C5327S) <>5 AND PEEK(53279J< 
>6 THEN 270 

280 IF PEEKC5327S)=5 THEN 310 
290 CH0ICE=R0H-2 

300 ON CHOICE GOTO 800,390,1000 
310 0LDR0H=R0H:R0H=R0H4l:lF ROII=e THEN 

R0H=3 
320 IF R0H=5 THEN POSITION 6 ,4;? tt6; "n 
ew disk": POSITION 6,5:? tt6 ; "IjyKUkfil" 
330 IF R0II=4 THEN POSITION 6 ,3:? ti6; "n 
ew year": POSITION 6,4:? tt6 ; "IJOSIKBID" 
340 IF R0M=3 THEN POSITION 6,3:? M6 ; "ffl 
tJ^M JI-MJ " ; POSITION 6,5;? tte;"new auto" 
350 POSITION 4,0LDR0N:? t»6;" ":POSITI 
ON 4, RON:? It6;"=>" 

360 FOR X=l TO 50: NEXT X:POKE 53279,8: 
GOTO 270 
370 GOTO 370 
380 REN *HHHHBHHHHH|EH OISKiHHHHHHHHHHt 

390 NONTHFILE$="D: MONTH .DAT":BS=" 

400 GRAPHICS 0:GOSUB BRKDIS: P OKE 752.1 
:POKE 710. 50: POSITION 8.0!? "I 



INITIALIZE NEW DI5K 



DISK WILL BE FORI 



410 PO SITION 8,18;? 

{3LDiai":G0SUB 1110 

420 GRAPHICS 17:G0SUB BRKDIS: POSITION 

2,8:? t}6;"please insert a":POSITION 2, 

10:? tt6;"blank disk into" 

430 POSITION 6.1 2:? tt6; "drive t»l":POSI 

TION 3,22:? Its ! " l!lrlitl.Wji;ii'aMA'ii " ; GOSUB 2 



440 TRAP 450: OPEN ttl,4,0,"D:MENU":CL0S 

E ttl:GOTO 760 

450 GRAPHI CS 18: GOSUB BRKD IS ; POSITION 

2,5:? tts ! ■■ llfnn!aiYi!iai*lW!a " ; XIO 254, Itl, 

0,0, "Dl:" 

460 GRAPHICS 0: GOSUB BRKDIS; POSITION 2 

,8;? "ENTER YOUR NANE": INPUT NANE$:? 

470 IF LENCNAHE$)<20 THEN NAMES fLENCNA 

NES)+1}=BS 

480 ? "ENTER YOUR STREET ADDRESS" :INPU 

T ADDRESS?:? 

490 IF LENCADDRESS|)<20 THEN ADDRESSSC 

LEN CADDRESSS) +1) =B$ 

500 ? "ENTER CITY, STATE, AND ZIP":INP 

UT CITYS:? ^ , 

510 IF LENCCITYSX20 THEN CITYS (LEN CCI 

TVS)+1J=BS 

520 ? CHRS (125); POKE 752,1 :P0SITI0N 2, 

8:? "IS THIS CORRECT?":? :? NAMES:? AD 

DRESSS:? CITYS 

530 GOSUB 20:IF A<>ASC("Y") AND AOASC 

("N") THEN 530 

540 IF A=ASC("N") THEN 460 

550 OPEN ttl,8,e,"D:NAME.DAT":? ttl:NANE 

S:? ttl; address!:? ttl;CITYS: CLOSE ttl 

560 TRAP 560:? CHRS (125) : POKE 752,0:P0 

SITION 2,8:? "ENTER YOUR STARTING BALA 

NCE" 

570 INPUT BALANCE :BALANCE$=STRS(BALANC 

E) 

580 FOR X=l TO LEN (BALANCES) : IF BALANC 

ES(X,X)<>"." THEN NEXT X: BALANCES (LEN ( 

BALANCES) M)=". 00": GOTO 610 

590 IF X=LEN (BALANCES) THEN BALANCES (L 

EN (BALANCES) +1) ="00" 



600 IF X=LEN (BALANCES) -1 THEN BALANCES 

(LEN (BALANCES) +1) ="0" 

610 POKE 752,1:? ;? "IS THIS YOUR CORR 

ECT":? "STARTING BALANCE?":? :? "S";BA 

LftMCES 

620 GOSUB 20: IF A<>ASC("Y") AND AOASC 

("N") THEN 620 

630 IF A=ASC("N") THEN 560 

640 TRAP 640:? CHRS (125) ; POSITION 2,10 

:? "ENTER THE YEAR (EXAMPLE: 84)":INPU 

T YEAR 

650 IF YEAR<0 OR YEAR>99 THEN 640 

660 TRAP 40000: POKE 752,1;? :? "IS THI 

S THE CORRECT YEAR?":? "19"; YEAR 

670 GOSUB 2e:IF A<>ASC("Y") AND AOASC 

("N") THEN 678 

680 IF A=:ASC("N") THEN 640 

690 OPEN ttl, 8, e,"D; BALANCE. DAT":? ttl;B 

ALANCES:? itl; year: CLOSE Itl 

700 GRAPHICS 17:G0SUB BRKDIS:POKE 708, 

14: POKE 712,98 

710 POSITION 1,8:? tt6; "CREATING FILE F 

OR": POSITION 6,10:? tt6;"N0NTH It" 

720 FOR X=0 TO 12:P0SITI0N 13,10:? tt6; 

X:IF X<10 THEN NgNTHFILES(8,8)="0":N0N 

THFILES(9,9)=STRS(X):G0T0 740 

730 N0NTHFILES(8.9)=STRS(X) 

740 OPEN ltl,8,0,N0NTHFILES:? ttl; "END": 

CLOSE 111: NEXT X 

750 OPEN ltl,8,e,"D:AUT0.DAT":? ttl; "END 

": CLOSE Itl: GOTO INSPRO 

760 GRAPHI CS 17: GOSUB BRKDIS: POSITION 

4 . 8 i y..gfi ■^'IM'W/."'"'*"'^'' = POSITION 6,10: 

770 I^OSrlrXON 6,12;? lt6;"Q3I9MID":G0SU 

B SNDl: GOSUB DELAY: GOTO 420 

780 GOTO INSPRO 

790 REN WiHHHHHBHHfNEH YEAR KKKKKMmciCK 

800 GRAPHICS 0: GOSUB BRKDIS: P OKE 752.1 

:POKE 710. 50: POSITION 0.0:? "■ 



START NEW YEAR 



810 GOSUB 1110:NONTHFILES="D:NONTH . D 

AT" 

820 GOSUB INSDAT:TRAP 980;0PEN 112,4,0, 

"D: N0NTH01.DAT": TRAP 40000 

830 CLOSE 112: OPEN lt2,8,e,"D:NONTHO0 .TM 

P" 

840 GRAPHICS 17: GOSUB BRKDIS: POKE 708, 

14: POKE 712, 98: POSITION 5,8:? lt6;"H0RK 

ING ON": POSITION 6,10;? HO; "MONTH It"; 

850 FOR X=0 TO 12;P0SITI0N 13,10:? tt6; 

X:IF X<10 THEN M0NTHFILES(8,8)="0":NDN 

THFILES (9,9) =STRS (X) ; GOTO 870 

860 M0NTHFILES(8,9)=STRS(X) 

870 OPEN ttl,4,0,N0NTHFILES 

880 INPUT ttl; CHECKS; IF CHECKS="END" TH 

EN 910 

890 IF CHECKS (1,1)="«" THEN 880 

900 ? tt2; CHECKS: GOTO 880 

910 CLOSE ttl: OPEN ttl,8,0,N0NTHFILES:? 

Ill; "END": CLOSE ttl; NEXT X 

920 ? 112; "END"; CLOSE 112 

930 XIO 33,ltl,0,0,"D:M0NTHee.DAT";XI0 

32,tll,0,0,"D;M0NTHe0.TNP,H0NTHe0.DAT" 

940 OPEN 111, 4, 0,"D: BALANCE. DAT": INPUT 

ttl ; BALANCES : INPUT ttl ; YEAR ; YEAR=YEAR«1 

950 CLOSE ttl: OPEN ttl, 8, 0,"D; BALANCE. TN 

P";? ttl; BALANCES:? ttl; YEAR: CLOSE ttl 

960 XIO 33, Itl, 0,0,"D: BALANCE. DAT": XIO 

32 , ttl , , , "D : BALANCE . TNP , BALANCE .DAT" 

970 GOTO INSPRO 

980 GOSU B NgDAT^GOTO 828 

1000 GRAPH ICS 17: GOSUB BRKDIS: POSITION 
10l6 POMTIol 




020 GOSUB 20; IF A<>ASC("Y") AND AOAS 
CC'N") THEN 1020 

1030 IF A=ASC("N") THEN TRAP 1200: RUN 
"D;NENU" 

1040 GOSUB INSDAT:TRAP 1090: OPEN 112,4, 
0,"D: AUTO. DAT"; CLOSE 112 
1050 GRAPH ICS 17; GOSUB BRKDIS: POSITION 

4,8:? t»6 ! 'ij ^;#j |Ji;M?li* " = pnsTTTnM 5,10 
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leee open lt2,8,e,"D:AUT0.DAT":? tt2;"EN 
D": CLOSE tt2 

1079 GRAPHICS 17:G0SUB B WKPIS 

1080 POSITION 6. 8;? tt6 ; ■<;! JigJlHiri " ! POSI 
TION 4,18:? ite;'^": ...^.-.. — . 



m 



R X=l 



TO 75e:NEKT X:GOTO INSPRO 

1090 GOSUB MODAT'.GOTO 1040 

1100 REN MMKUKKK HARNIN G SCREE N mcWKMKK 

1110 POSITION 16,5:? ■ Miril-rirHil " ; POSITI 

ON 7,9:? "THIS PROGRAM HILL DESTROY" 

1120 POSITION 7,11:? "ANY HICROCHECK D 

ATA FILES": POSITION 7,13:? "THAT HAY B 

E ON YOUR DISK!" 

1130 POSITION 0,23:? 




1140 FOR X=l TO 16: POKE 710, 50: SOUND 
,100, 10, 8: SOUND 1,101, 10, 8:F0R Y=l TO 
IS: NEXT Y 
1150 POKE 710,8:S0UND 0. 240,10, 8:S0UND 

1,241, 10, 8:F0R Y=l TO i5:NEXT Y:NEXT 
X 

1160 SOUND 0,0,0,0:SOUND l,e,0,e:POKE 
710,50 

1170 GOSUB 20: IF A<>ASCC"C") AND AOAS 
CC"M"} THEN 1170 

1180 TRAP 1200: IF A=ASCC"N") THEN RUN 
"D:MENU" 
1190 RETURN 
1200 GRAPHI CS 17; GOSUB BRKDIS; POSITION 

4 ■ a ! ? MS JJJilri-HIBatia" ! POSITION 7,10 

1210 ^osTTWff 6,12:? tt6;"{a3I!BED":G0S 

UB SNDl: GOSUB DELAY: TRAP 1200: GOTO INS 

PRO 

1220 REM KKKKKlCMKKKK NODAT MKKlCKKKmiK 

1230 CLOSE tt2: GRAPHI CS 17: GOSUB BRKDIS 

: POSITION 4.8; ? Jtt6 : ' ^i!it»tp !lili" ! POSIT 

ION 4,10:? tt6 ; "GJiMi c roc he c k^- 

1240 POSITION 5,12:? 1*6 ; "(33I30B9" : G 

OSUB SNDl: GOSUB DELAY : RETURW 



CHECKSUM DATA. 

(see page 8) 

10 DATA 436,734,347,148,873,861,201,76 

6,780,48,951,725,27,200,130,7235 

160 DATA 67,950,531,325,145,424,820,81 

7,309,517,765,904,542,532,960,0688 

310 DATA 253,708,735,629,933,996,733,2 

74,897,122,159,642,409,482,707,8759 

460 DATA 169,894,217,254,630,19,470,42 

1,76,987,445,625,900,350,296,6761 

610 DATA 506,422,76,798,305,751,442,08 

,7,061,862,213,680,644,571,7226 

760 DATA 119,612,377,90,756,286,193,20 

4,46,235,691,369,352,744,167,5241 

910 DATA 726,746,288,666,152,222,370,4 

30,49,820,816,410,824,882,434,7843 

1060 DATA 901,888,197,351,679,777,829, 

932,657,525,86,368.830,791,363,9254 

1210 DATA 470,649,372,718,2209 



Listing 5. 

10 Nl=l ; N2=2 : N3=3 : N4=4 ; N5=:5 : N6=6 : N7=7 : 
N8=8 : N9=9 : N10=10 : Nll=ll : N12=12 ; N13=13 ; 
N14=14 : N15=15 ; N16=ie : N17=17 ; N18=18 
20 N19=19:N20=20;G0T0 2090 

38 REM KKKKKlCMMKKK DELAY KlCimKmCKKlCKWICK 

40 FOR X=N1 TO 1750: NEXT X: RETURN 

58 REM KMUKKKKlCimit BRKDIS KKMKKlCltKMK 

60 I=PEEKCN16):IF I>127 THEN 1=1-128 :P 

OKE N16,I:P0KE 53774,1 

70 RETURN 

80 REM KMMKKMKKmCKKlC IN MKKIClCKlCKKXIIKlt 

90 L=NO;TEMP$="":POKE 764,255 



100 GOSUB IH2:IF A=RETRN THEN POKE 752 

,Nl: RETURN 

110 IF D=N1 THEN D=NO: POSITION 38, N5:? 

■ ■ ■■ ■ 

120 If N=N1 then N=N0:P0SITI0N 36, N2:? 

II II B 

130 POKE 752, NO: IF A=BACKSP THEN 160 

140 L=L+Nl:IF L>L1 THEN POKE 752,N1:RE 

TURN 

150 POSITION C0L+L-N1,R0H:? CHR$CA);:T 

Eia>$ CL , L) =CHRS CAJ : GOTO 100 

160 IF L>NO THEN ? "V; ;L=L-N1 :IF L=NO 

THEN TEMP$="" 
170 IF L>NO THEN TENP:S=TEHP$CN1,L) 
100 GOTO 100 

190 REM KWKKICMKKICICM IN2 MKKlClCKKMKKlt 
200 OPEN ttNl,N4,NO,"K:":P0KE 764, 255 :P 
OKE 702, 64: POKE 694, NO 
210 IF PEEK C764) =255 THEN 210 
220 IF PEEK 1764) =39 OR PEEKC7643=60 OR 

PEEK C764) =124 OR PEEK €764) =103 THEN P 
OKE 764, 255: GOTO 210 
230 GET ttNl,A:CLOSE ttNl: RETURN 
240 REM ICICICKKKKKKK SNDl KKlCKMKlCKllKmC 
250 SOUND Ne,N20,N10,N8:FOR X=N1 TO N2 
e:NEXT X: SOUND NO, NO, NO, NO: RETURN 
260 REM MKMKl(KKKmi SND2 WltmCKKmtKK 
270 SOUND NO, 75, N12, NO: FOR X=N1 TO 30: 
NEXT X: SOUND NO, NO, NO, NO; RETURN 
280 REM iCKWlCKiciCKlCKMmt SND3 miltKMKmcKim 
290 SOUND Ne,ie0,N12,N8:F0R X=N1 TO 20 
0:NEXT X:SOUND NO,NO,NO,NO:RETURN 

300 REM KmCKMMKMICKK EDIT MKMMlCMKmcmCM 

310 POSITION 21,N16:? "I JWaB*tJrifcl.MJ 

EJdD":sve=ni 

320 for x=n17 to n20: position no,x;? b 

$:NEXT X 

330 POSITION N8,N18:? "A = AMOUNT 
N = NUMBER"; POSITION N8,N19:? "D = DAT 
E P = PAYEE" 
340 POSITION N8,N20:? "M = NEMO 
E = END" 

350 EDTFLAG=N1: GOSUB IN2 
360 IF A<>ASCC"A") AND A<>ASCC"D") AND 
A<>ASCC"E") AND A<>ASCC"N") AND AOAS 
CC"N") AND A<>ASCC"P") THEN 350 
370 FOR X=N17 TO N20:P0SITI0N Ne,X:? B 
$:NEXT X 

THEN 440 

THEN GOSUB DATE: GOTO 



THEN EDTFLAG=NO;GOTO 



THEN GOSUB CHNUM:GOT 



380 IF A=ASCC"A") 
390 IF A=ASCC"D") 

310 
400 IF A=A5CC"E") 

500 
410 IF A=ASCC"M") THEN GOSUB MEMO: GOTO 

310 
420 IF A=ASCC"N") 
310 

430 IF A=ASCC"P") THEN GOSUB PAYEE: GOT 
310 

440 IF MONTHFXLES="D: AUTO. DAT" THEN GO 
SUB AMOUNT: GOTO 310 
450 IF FLAG2 THEN GOSUB AMOUNT: GOTO 31 

460 OLDAMNT=VALCAMOUNT$): GOSUB AMOUNT: 

DIF=OLDAMNT-UAL t AMOUNTS) :IF CHNUN$="DE 

P " THEN DIF=-DIF 

470 BALANCE$=STR$ CVAL CBALANCE$) 4DIF) 

400 TEMP$=BALANCE$: GOSUB DOLFORMAT:BAL 

ANCE$=TEMP$ 

490 POSITION 31,N15:? BALANCES;" ": 

GOTO 310 

500 CHECKS CN2) =CHNUM$ ; CHECKS f N6) =DATES 

; CHECKS CN14) =PAYEES : CHECKS f 35) =AM0UNTS 

: CHECKS C42)=MEH0S 

510 FOR X=N17 TO N2e: POSITION NO,X:? B 

S:NEXT X; RETURN 

520 REM KKKKKItmt DOLFORMAT MKKMKKKM 

530 FOR X=N1 TO LENCTEMPS) !IF TEMPS tX, 

X)<>"." THEN NEXT X : TEMPS CX)=". 00": RET 

URN 

540 IF LENCTEMPS) =X THEN TEWSCX+N1,X+ 

H2)="00" 

550 IF LENCTEMPS) =X+N1 THEN TEMPS CXHhN2 

,X+N2)="0" 

560 RETURN 

570 REM KKICKKKKKICKM DATE KKKKKKKICKIC 
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588 GQSUB 5ND1:P0SITI0N 21, NIB:? " 



lC^3:R0H=A5: LOCATE COL,ROH,Z:POK 
E 752 Nl*Ll=il2 

688 POSITION COL, ROM:? CHR$CZ+128I :D=N 
l:GOSUB IN 

618 IF BEGIN AND TEMP$="" THEN 698 
628 IF TEHP$="" THEN 688 
638 IF LENfTEMP$)<N2 THEN 698 
648 FOR X=N1 TO N2:IF TENP$C}I,X9 <"e" 
R TEMPS CX,HJ>"9" THEN 698 
658 NEXT X 

668 DATES CN4.N5}=TEHP$:T$=TEHP$ 
678 IF VALCTi}<Nl OR VAL(T$)>DAYS THEN 

698 
688 POSITION 38, RON:? DATES;" ":BEGIN= 
116 * RETURN 

698 GOSUB SND2:Z=32: POSITION 33, N5:? " 
";:POSITION COL,ROH:GOTO 680 

788 REH MmtMKIIlCKKlC CHNUN iHHHHHHHHHI_ 

18 GOSUB SNDl ; POSITION 21,N16:? 'WEB 

9ll 



728 C0L=32:R0H=N2: POSITION COL, RON:? C 

HNUNS 

738 LOCATE COL, RON, Z; POSITION COL, RON: 

? CHRSCZ-M28):Ll=N4:N=Nl: GOSUB IN 

748 IF TEHPf="" THEN 818 

758 IF TEMPS="DEP" THEN TEMPS CN4>=" ": 

GOTO 888 

768 IF TEMPS="AUTO" THEN 888 

778 IF LENCTEMPSXN4 THEN 828 

788 FOR X=N1 TO LENCTEMPS) :IF TEMPS CX, 

XJ<"8" OR TEI«»SCX,X>>"9" THEN 820 

798 NEXT X 

888 CHNUMS=TEMPS 

818 POSITION 32, N2:? CHNUMS;" ";:RETUR 

N 

828 GOSUB SND2: POSITION 32, N2:? " 

:GOTO 738 

838 REM MKKKmCMMM PAYEE KKKKKMKMKK 

848 C0L=H8:R0H=N8:IF CHNUNS="DEP " THE 

N PAYEES="DEP0SIT ":G0T0 9 

88 

858 GeSUB SNDl; POSITION 21,N16:? " H 

liirlMi'H-"J=' 

868 POKE 752, Nl: LOCATE COL. RON, Z 

878 POSITION COL, ROM:? CHRSCZ+i28) ; :L1 

=21: GOSUB IN 

888 IF TEMPS=:"" AND EDTFLAG THEN 988 

898 PAYEES=TEMPS:IF LENCPAYEESJ <21 THE 

N FOR X=LENCPAYEE$}+N1 TO 21: PAYEES CX, 

jfj^ii •<;||EXT X 

988 POSITION COL, ROM:? PAYEES;" ":POKE 

752, Nl: RETURN 
918 REN KKKKKKKKM AMOUNT IHHHHHHHtW 
928 GOSUB S NDl; POSITION 21,N16:? " 

,z 

948 POSITION COL, ROM;? CHRSCZ+128) ; :L1 

=N7: GOSUB IN 

958 IF TEHPSr"" AND CFLAG OR EDTFLAG) 

THEN 1878 

968 IF TEMPS="" THEM 1888 

978 GOSUB D0LF0RMAT:AM0UNTS=TENP$ 

988 FOR X=N1 TO LENCAMOUNTS) 

998 IF CANOUNTSCX,X)<"e" OR AMOUNTS CX, 

X)>"9"l AND AMOUNTS CX,X)<>"." THEN 188 

e 

leeo IF AMOUNTS CX,X)="." AND DE=N8 THE 

N DE=X:G0T0 1820 

1818 IF AMOUNTS CX,X)="." AND DE>N8 THE 

N 1088 

1820 NEXT X 

1838 IF DE=N8 OR DE>N5 THEN 1088 

1848 IF LENCAMOUNTS) >DE+N2 THEN 1888 

1850 IF LENCAMeUNTS)=N7 THEN 1878 

1868 FOR X=LENCAM0UNTS)+N1 TO N7:AM0UN 

TSCX)=" ";NEXT X 

1070 POSITION COL, RON:? AMOUNTS; :TRAP 

48888: RETURN 

1886 GOSUB SND2: POSITION 31, N8:? " 

";:POKE 752,Nl:G0T0 930 
1090 REM KKKMKMMICICIC MEMO KKKICKKKKKK 

1 188 GOSUB SNDl: POSITION 21,N16;? " 



;R0H=N8: LOCATE COL, ROM 



1118 C0L=N7;R0H=N11:P0KE 752, Nl; LOCATE 

COL, ROM, Z 
1128 POSITION COL, ROM:? CHRSCZ+128) ; :L 
1=22: GOSUB IN 

1138 IF TEMPS="" AND EDTFLAG THEN 1168 
1148 IF TEMPS="" AND FLAG THEN 1168 
1158 ICmSrTENPS : IF LENCMEmS)<22 THEN 

FOR X=LEN CWHOS) +N1 TO 22:»EM0SCX)=" 
";NEXT X 

li68 POSITION COL, RON;? MEMOS: RETURN 
1170 REM KKKKKltmCKK START KMHKllMMmt 
1188 IF M0NTHFILES<>"D:AUT0.DAT" THEN 
POSITION N7,N17:? "RETURN = ENTER NEXT 

CHECK" 
1198 POSITION N12,N18:? "SELECT = REVI 
EH": POSITION N9,19:? "OPTION & SELECT 
= END": GOSUB SNDl 
1288 POKE 764, 255; POKE 53279, N8 
1218 IF PEEKC764)=N12 AND mNTHFILESO 
"D: AUTO. DAT" THEN SUE=N1;G0T0 1268 
1228 IF PEEKC53279)=START AND NOT ENT 
RED THEN 1288 

1238 IF PEEKC53279)=SELECT THEN 1688 
1248 IF PEEKC53279)=8PTSEL THEN 1838 
1258 GOTO 1218 

1268 FOR X=N17 TO N19;P0SITI0N Ne,X:? 
BS:NEXT X 
1278 ENTRED=N8 
1288 IF CHNUMS="DEP " OR CHNUMS="AUTO" 

OR CHNUMS="8888" THEN 1328 
1298 V=VALCCHNUM$) ;U=V+N1:IF V>9999 TH 

EN v=e 

1388 CHNUMS=STRSCV):IF LENCCHNUMS)=N4 

THEN 1328 

1318 L=LENCCHNUMS):F0R X=N1 TO N4-L:TE 

MPS CX) ="8" : NEXT X ; TEMPS CX) =CHNUMS : CHNU 

MSzTEWS 

1328 GOSUB DATE: GOSUB CHNUM: GOSUB PAVE 

E: GOSUB AMOUNT; GOSUB MEMO 

1338 POSITION Nie,N19:? "OPTION = EDIT 

CHECKS 
1348 GOSUB SNDl: POSITION 21,N16:? "(315 

iMaaijnaiiimfjffll " : ; poke 764, 255; poke 53 

279, N8 

1358 IF PEEKC764)=N12 THEN 1388 

1368 IF PEEKC53279)=0PTI0N THEN 1598 

1378 GOTO 1350 

1388 IF CHNUM$="AUTO" AND AUT0CNT=N5 T 

HEN FULLS="AUT0":G0T0 1588 

1398 IF C0UNT=18e THEN FULLS="CHECK":G 

OTO 1508 

1488 ENTRED=N1: POSITION 21,N16:? BSCN2 

8):P0SITI0N N18,N19:? BS CN19) 

1418 CHECKSCN1)=" "; checks CN2)=CHNUMS; 

CHECKS CN6) =DATES : CHECKS CN14) rPAYEES : CH 

ECKS C35) =AMOUNTS : CHECKS C42) =MEHOS 

1420 MONTHDATS CLEN CMONTHDATS) +N1) =GHEC 

KS 

1430 IF CHNUMS="AUT0" THEN AUTOCNT=AUT 

OCNT+Nl : AUTOS CAUT0CNTK63-62 , AUT0CNTK63 

1448 POKE 752, Nl: POSITION N8,N8:? BSCN 
16):P8SITI0N 31, N8;? BS C38) 
1458 C0UNT=C0UNT+N1 
1460 POSITION N7,Nll:? BSCNIS) 
1478 IF CHNUMS="DEP " THEN BALANCES=ST 
RS CUAL CBALANCES) +VAL CAMOUNTS) ) : GOTO 14 
98 

1488 BALANCES=STRS CVAL CBALANCES) -VAL CA 
MOUNTS)) 

1498 TEMPS=BALANCES: GOSUB DOLFORMAT:BA 
LANCE$=TEMPS: POSITION 31,N15:? BALANCE 
S;" ":GOTO 1188 

1588 GOSUB SND2;F0R X=N17 TO N19: POSIT 
ION N8,X;? BS;NEXT X 

1518 FOR X=N1 TO LENCFULLS) : FULLS CX,X) 
=CHRS CASC CFULLS CX , X) ) +168) ; NEXT X 
1528 POKE 1 547.52;P0 SITI0N 21,N16;? " 
";FULLS;" gHtCTHiin ":POSITION N8,N18 
;? "PRESS RETURN T8 CONTINUE" 
1538 POKE 764,255 
1548 IF PEEK C764) =255 THEN 1548 
1558 IF PEEKC764)<>N12 THEN 1538 
1568 POSITION N8.N18:? BS: POSITION 21, 
N16:? BSCNIS): POKE 1547, N12 
1578 POKE 792, Nl: POSITION N8,N8;? BSCN 
16): POSITION 31, N8:? B$C38} ; POSITION N 
7, Nil:? BSCN15) 
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1588 CHNUH$=CHECK$(N2,N5) :GOTO 1188 
1598 FLAG2=N1:G05UB EDIT :FLaG2=N8: POKE 

751, Nl: GOTO 1338 
1688 FOR K=N17 TO N19: POSITION Ne,K:? 
B$:NEXT X:CNT=N8 
1618 IF COUNT>Ne THEN 1648 
1620 POSITION N28,N16:? "no checks to 
review.-GOSUB SND2 
1638 GOSUB DELAY: POSITION N28,N16:? " 

":GOTO 1188 
1648 POSITION 21,N16:? •• ENTRY U 

■ I 

1658 POSITION Nie,N18:? "SELECT = NEXT 
CHECK": POSITION N13,N19:? "OPTION = E 
DIT": POSITION N16,N2e:? "E = END" 
1668 IF EDT THEN EDT=Ne:GOTO 1728 
1678 CNT=CNT+N1:IF CNT>COUNT THEN 1788 
1688 CHECK$=H0HTHDAT$CCNT«63-e2,CNT«63 

1698 CHNUN$=CHECK$CN2,N5) :PAYEE$=CHECK 
SCN14.34} :AM0UNT$=CHECK$(35,41) :l«Eml= 
CHECK$C423 :DATE$=CHECK$CN6,N13} 
1788 POSITION 32, N2:? CHNUH$: POSITION 
38, N5:? DATE$:POSITION N8,N8:? PAYEE$ 
1710 POSITION 31, N8:? AMOUNTS: POSITION 

N7,N11:? NEMOS 
1728 POSITION 33,N16:? CNT 
1738 POKE 764,255 
1740 IF PEEK (764) =42 THEN 1788 
1758 IF PEEK (53279) =SELECT THEN 1668 
1768 IF PEEK (53279) =ePTION THEN GOSUB 
EDIT : MONTHDATS (CNT«63-62, CNT*63) =CHECK 
$:EDT=N1:G0T0 1648 
1778 GOTO 1748 

1788 POSITION NIO^NIO:? B$(N19) :PDSITI 
ON N13,N19:? B$ (25): POSITION N16,N20:? 

BS (30) : POSITION 21,N16:? B$(N28) 
1798 CHECK$=MONTHDAT$ (C0UNT«e3-e2 , COUN 
T«63) 

1888 POKE 752, Nl: POSITION N8,N8:? BS(N 
16):P0SITI0N 31, N8:? B$(3e) 
1818 POSITION N7,N11:? B$ (N14) 
1828 CHNUM$=CHECK$(N2,45) :GOTO 1188 
1830 IF NOT SVE THEN 1978 
1848 TE»0>FILE$=MONTHFILE$ ; TEMPFILE* (LE 
N (TEMPFILE$) -N2, LEN (TEMPFILES) ) ="TMP" : 
CLOSE tlNl:OPEN ttNl,N8,N8,TEM>FILE$ 
1858 FOR K=N1 TO COUNT:? ttNl;MONTHDATS 
(X»e3-62,KW63):NEXT X 
1868 ? ttNll"END": CLOSE ttNl 
1870 XIO 33,ttNl,N8,N8,H0NTHFILE$:M0NTH 
FILE$=MONTHFILEi (N3) 

1880 GRAPHICS NO: POKE 559, N8:? :? :? " 
XIO 32,111, 8, 8, "; CHRS (34) ; TEWFILE*; ", " 
;MONTHFILE$ 

1898 ? :? :? "CONT": POSITION N8,N8:P0K 
E 842,N13:ST0P 

1980 POKE 842,N12:CL0SE ttN2:0PEN ttN2,N 
8 , NO , "D : BALANCE . DAT" : ? ttN2 ; BALANCES : ? 
ttN2; YEAR: CLOSE ttN2 

1910 IF M0NTHFILES="AUT0.DAT" THEN 197 
8 

1928 IF AUTOCNT=:Ne THEN 1978 
1938 OPEN tni2,N8,N8,"D:AUT0.TMP" 
1940 FOR X=N1 TO AUTOCNT:? ttN2; AUTOS (X 
»63-62,X«63) :NEXT X 
1950 ? ttN2; "END": CLOSE ttN2 
1960 XIO 33,ttNl,N8,N8,"D:AUT0.DAT":XI0 

32 ,ltNl , N8 , N8 , "6 : AUTO . TW , AUTO . DAT" 
1978 GRAPHICS N18: GOSUB BRKDIS:POSITIO 
N N3,N4:? tt6;"n = new Month": POSITION 
N5,N6:? StN6;"N = nenu" 

1980 GOSUB IN2:IF A=ASC("M") THEN 2018 
1998 IF A=ASC("N") THEN SVE=N8:M0NTHDA 
TS="":GOTO 2218 
2888 GOTO 1988 

2818 GRAPHICS N17: GOSUB BRKDIS:POSITIO 
N N3,N5:? ttN6; "please insert": POSITION 

N3,N7:? ttN6; "program disk" ^,,_„^,_^__,^^ 
18 POSITION N3,N16:? ltN6 ; "QOSEKCUI 



2830 GOSUB IN2:TRAP 2048: RUN "D:MENU" 
2848 GRAPHICS N17; POSITION N4,N8:? ttN6 



2868 REM MMMItlCKKItKMKKKKlClCICKKmClClCICK 

2878 REM K INITIALIZE « 

2888 REM MKKKMKMKKKIClCmCKMKKlClCKKltKK 

2898 DIM PAYEES (21), AMOUNTS (N7), NEMOS ( 

22) J. MONTHFILES (N13) , mNTHDATS (6^88) , CH 

HUMS (N4) , CHECKS (63) , BS (37) , TS (N8) 

2188 DIM TEMPS (22). CHS (48), NAMES (N28), 

ADDRESSS (N28) , CITYS (N20) , BALANCES (N8) , 

DATES (N8) , TEMPFILES (N13) , AS (22) 

2110 DIM AUTOS (315), AUT0FILeI(N13),FUL 

LS(N5) 

2128 RETRN=155 : BACKSP=126 : IN=98 ; START= 

N6 : 0PTI0N=N3 : SELECT=N5 : 0PTSEL=N1 : SND1= 

258 : ENTRED=N8 : BEGIN=N1 

2138 D0LF0RMAT=52e : DATE=588 : CHNUM=718 : 

PAYEE=848 : EDIT=318 : AM0UNT=928 : MEM0=118 

8 : FLA6=N8 : FLAG2=N8 : SND2=27e : SVE=N8 

2148 BRKDIS=e8 : IN2=288 : DELAY=40 : SND3=2 

98 

2158 CHS="| 

I" 
2168 BS(N1)=" ":BS(37)=BS:BS(2)=BS 
2178 GRAPHICS 17: GOSUB BRKDIS: POSITION 
3,8:? tt6;"please insert": POSITION 3,1 
0:? tt6;"your data disk" 
2188 POSITION 3,12:? t t6;"into drive m 
": POSITION 3,22:? tt6;"iaa^aD3flaa2":G 

OSUB IN2 

2190 TRAP 273e:0PEN ttNl, N4, NO, "D: NAME. 

DAT": INPUT ItNl; NAMES: INPUT ttNl; ADDRESS 

S: INPUT ttNl; CITYS: CLOSE ttNl 

2288 OPEN ttNl, N4,N8,"D: BALANCE. DAT": IN 

PUT ttNl; BALANCES, YEAR: CLOSE ttNl 

2218 AUT0CNT=N8:C0UNT=N8 

2228 OPEN ttNl, N4, NO, "D: AUTO. DAT" 

2238 INPUT ttNl; CHECKS: IF CHECKi="END" 

THEN TRAP 48888: CLOSE ttNl: GOTO 2250 

2240 AUT0CNT=AUT0CNT+N1 : AUTOS (AUTOCNT* 

63-62 , AUT0CNTK63) =:CHECKS : GOTO 2238 

2258 GRAPHICS N8: GOSUB BRKDIS: POKE 559 

.NO : DL=PEEK (568) +256«PEEK (561) +N4 

2260 POKE DL+N15,138:P0KE DL+N16,Ne:P0 

KE DL-l^N17,N6:P0KE DLHhN18,N6:P0KE DL+Nl 

9,N6 

2278 POKE DL+24,65:P0KE DL+25, PEEK (568 

):POKE DL+26, PEEK (561) 

2288 RESTORE 2290: FOR X=1664 TO 1692 :R 

EAD A: POKE X, A: NEXT X 

2290 DATA 72,138,72,152,72,169,10,162, 

8,168,56,141,18,212 

2380 DATA 141,24,208,142,24,208,148,23 

,288,184,168,184,178,184,64 

2318 POKE 7e9,Ne:P0KE 718,N8:P0KE 711, 

N12 

2328 POKE 1546,0: POKE 1555, 7: REM COLOR 

AND TIME 
2338 POKE 512,128:P0KE 513,N6:P0KE 542 
86,192:P0KE 28,8:P0KE 752, Nl 
2348 POSITION N8,N8:? "i 

1" 

2350 FOR X=N1 TO N13:P0SITI0N N8,X:? C 

hS:next X 

2368 POSITION N8,N14:? " ' 

2378 POSITION N2,N2:? NAMES:" 
tt": POSITION N2,N3:? ADDRESSS;" 

2388 POS ITIO N N2,N4:? CITYS: POSITION 2 
5,N5:? "GEDl" : POSITION 38, N6:? " 



2398 POSITION N2,N8:? "QESIil": 
30, N8:? "S"; POSITION Nffjll?:? 



POSITION 



T"; GOSUB 
riiiiliMTTii 



_PROGRfiM DISK 
NOT IN 



r:POSITION N7,N18:? ttN6; 



2858 POSITION N6,N12:? ttN6 ; "QiEigaEia' 
GOSUB SND3: GOSUB DELAY: GOTO 2818 



2488 POSITION N2,N11:? "(2I2D" : POSITION 

N7,N12:? " ":POK 

E 559,34 

2410 M0NTHFILES="D: MONTH .DA 
SND1:P0SITI0N N28,N16:? " 
QQ " 

2428 C0L=3e:R0N=N5:Ll=N2:P0KE 751, Nl 
2430 POSITION COL, RON:? "|": GOSUB IN 
2440 IF TEMPS="A" THEN M0NTHFILES="D: A 
UTO. DAT": POSITION 38, N5:? "AUTO":GOTO 
2540 

2450 IF LEN(TEMPS)<N2 THEN GOSUB SND2: 
POSITION COL, RON:? " "; :GOTO 2430 



2468 FOR K=N1 TO N2:IF TEHP$CX,X)<"e" 

OR TEHP$fK.X)>"9" THEN GOSUB 5ND2:P0SI 

TIOH COL, ROM:? " ";:GOTO 2430 

2470 NEXT X 

2480 DATES=TEMP$:IF VALCDATESXNI OR U 

ALCDATE$)>N12 THEN GOSUB 5ND2: POSITION 

COL.ROH:? GOTO 2430 

2490 M=VALCDATE$) :IF H=N4 OR M=Ne OR N 

=N9 OR H=N11 THEN DAYS=3e:G0T0 2520 

2500 IF N=N2 THEN DAYS=29:G0T0 2520 

2510 DAYS=31 

2520 DATES CN3,N6>="/ /": DATES (N7,N8J = 

STrIcYEAR): POSITION 30, N5:? DATES 

2530 H0NTHFILES{N8,N93=DATE$ 

2540 TRAP 217e:0PEN ttN2,N4,Ne,N0NTHFIL 

E$:TRAP 40000 

2550 INPUT ttN2; CHECKS: IF CHECKS="END" 

THEN CLOSE ttN2:G0T0 2580 

2560 C0UNT=C0UNT«N1 

2570 mNTHDATS CC0UNT»63-62 , C0UNTK63} =C 

HECKS: GOTO 2550 

2580 IF COUNT>Ne THEN CHECK$=M0NTHPATS 

f C0UNTM63-62 , C0UNT»633 : DATES=CHECKS CN6 

,N13):DAYS=31:G0T0 2780 

2590 IF COUNT=Ne AND H0NTHFILES="D: AUT 

O.DAT" THEN 2760 

2688 POSITION N2,N16:? "START MONTH "; 

DATES tNl,N23;"?": POSITION 24,N16:? " 

CY/NJ " 
2610 GOSUB IN2:IF A=ASCC"N") THEN 1970 
2620 IF AOASCf'Y") THEN 2618 
2630 POSITION N0,N16:? BS 
2640 CHNUNS="0808":0PEN ttN2,N4,N0,"D:A 
UTO.DAT" 

2650 INPUT ttN2; CHECKS: IF CHECKS="END" 
AND C0UNT>N0 THEN SUE=N1 
2660 IF CHECKS="END" THEN CLOSE ttN2:G0 
TO 2710 

2670 CHECKS CN6,N7)=DATESCN1,N2) 
2680 BALANCE$=STRS CVAL CBALANCES) -VAL CC 
HECKS C35})} :TEHPS=BALANCES: GOSUB DOLFO 
RMAT : BALANCES=TENPS 

2698 C0UNT=C0UNT«N1 : HONTHDATS CC0UNT«63 
-62,C0UNT»63)=CHECKS:G0T0 2650 
2788 CHNUNS=CHECKSCN2,N5) 
2718 POSITION 21,N16:? BSCN2e):P0KE 55 
9, 34: TRAP 40000 

2720 POSITION 22,N15:? "BALANCE :S";BAL 
ANCES:GOTO 1180 

2730 GRAPHICS N17: GOSUB BRKDIS:POSITIO 
N N3,N6:? ttN6;"N0 Hicrocheck": POSITION 

N3,N8:? ttN6;"DATA FILES ON" 
2740 POSITION N5,Nie:? ttN6;"THIS DISK" 
: GOSUB SND3: GOSUB DELAY: CLOSE ttNl:GOTO 

2178 
2758 SOUND N8,188,N12,N8:F0R X=N1 TO 5 
0:NEXT X: SOUND NO, Ne,N8,N8: GOSUB DELAY 
: CLOSE ftNl:GOTO 2178 

2768 POSITION 22,N16:? "auto file enpt 
y": GOSUB SND2: GOSUB DELAY: CLOSE ttN2:G0 
TO 2410 



CHECKSUM DATA. 

(see page 8) 

10 DATA 16,196,129,914,859,545,764,452 

,558,763,618,656,768,764,357,8359 

168 DATA 644,499,707,456,361,512,350,2 

44,755,435,342,298,799,382,641,7337 

318 DATA 185.288,339.597.469.177.295,6 

7,388,396,373,645,658,878,441,6164 

468 DATA 657,787,47,818,589,287,947,73 

,883,957,607,546,427,96,587,8228 

618 DATA 338,158,597,23,783,256,499,43 

8,718,655,658,246,662,149,993,7173 

768 DATA 796,685,622,797,454,494,768,8 

56,477,262,352,616,676,178,934,8887 

918 DATA 939,652,779,683,678,481,928,8 

,249,656,179,531,647,568,194,8876 

1868 DATA 2,966,797,536,43,413,659,517 

,92,381,331,614,721,56,879,7887 



1218 DATA 36,355,477,527,711,231,912,7 
467495:757:946 . 9^1 , 8*8 , 7*4 , 9*5 . 9|71 
1360 DATA 560,725,526,188,593,549,428, 
273 , 826 , 984 , 645 , 852 , 185 , 284 , 838 ,8288 
1510 DATA 930,339,21,871,678,698,347,3 
98 , 346 , 306 ,173,275, 548 , 851 , 115 , 6888 
1668 DATA 269,978,18,168,841,939,316.2 
7 , 579 , 512 , 189 , 739 , 354 , 882 , 834 , 7557 
1818 DATA 649,323,158,89,328,79,933,32 
7 , 486 , 786 , 38 , 919 , 891 , 282 , 86 ,6198 
1968 DATA 415,694,681,641,723,285,857, 
918,678,98,538,993,548,221,481,8587 
2110 DATA 389,191,189,366,428,708,589, 
807 , 311 , 876 , 511 , 889 , 386 ,589 ,774 ,7675 
2268 DATA 699,452,538,979,671,828,963, 
873,599,122,412,799,791,281,592,9591 
2410 DATA 621,835,247,953,348,143,550, 
787,417,416,682,706,947,406,674,8724 
2568 DATA 910,797,565,32,146,608,381,3 
10,881,989,503,108,223,917,458,7828 
2718 DATA 285,535,891,487,18,415,2623 
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Adventure Reviews 




ISSUE 19 • Batllo in the B-Ring • 
A Look at Modems • Bulletin 
Board Systems • Siege • Touch- 
Tone' Dialer 




ISSUE 20 • Buzz-zapl • Soredil • 
AlterDOS • BacterionI • ConTEXT 



fPTJeUDEl 

ATARI PRINTER 

UTILITIES! 
^ISTi., '-nsBa -ii^vs.- 
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ISSUE 21 • Selecting your Perfect 

Printer • Matt* Edit • Graph E'a 

• Spy Plane • Printer Survey 
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iiiui tlu' Atari 

ISSUE 22 • Math Attack • 

Micro-Puzzler • Typing Evaluat.ir 

• Air Attack • Malhman • 

The Reading Program 




ISSUE 23 • Fire Bug • MInicomp 

• Dark Horse t Climber • 

P/M Creator/Animator 
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BOFFOI 

Unlchoch 

Bupotront 

Race In Space 

AtarlCon Roporl 

CIrciiil Dat3b;)!>s 

CassQtIe Comproasor 



ISSUE 24 • Circuit Database • 

Bopotron! • XL-DOS 

• Cassette Compressor • 

Race In Space • Unicheck 



All back issues $4.00 each 

Send check or money order to: Issues 25 and 26 are also available, MasterCard and VISA orders call: 

ANALOG Computing Back Issues along with 1-800-345-8112 

P.O. Box 615. Holmes. PA 19043 a limited number of issues 2 and 11. in PA. 1-800-662-2444 
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128 Abby's Discount 66 

119 Advanced Interface Devices 50 

109 Allen Macroware 15 

135 Alpha Systems 83 

^ 1^7 American TV 63 

— ANALOG Publishing 91 

/ 116 Astra Systems 38, 39 

105 At-A-Glance 9 

117 Batteries Included 41 

121 Broadway Computer 51 

122 CAP. Software 54 

132 Centurian Enterprises 82 

115 Columbia House 35 

110 Computability 19 

113 Computer Creations 28 

140 Computer Games Plus 92 

131 Computer Palace/Royal Software 77 

108 Computer Software Services 12 

133 Computers Made Simple 82 

121 Cosmic Computers 53 

123 Digital Devices 57 
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111 Eastern House 21 

114 Edu-Tax 29 

134 Firstware 82 

125 Gardner Computing 60 

105 Gemini 9 

130 GTA, Inc 75 

126 Happy Computers 60 

112 Indus Systems 25 

136 LJK 51 

109 Lotsa Bytes 7 

129 Lyco Computers 67 

107 MPS 9 

101 Okidata IPC 

102 O.S.S. Precision Software 2 

139 PC Gallery 34 

103 Programmers Workshop 5 

106 Senecom 9 

138 Southern Software 92 

118 SubLOGIC 42 

137 Unlimited Software 92 

124 Wedgwood Rental 59 



This index is cm additional service. While every effort is made to provide a complete and accurate listing, the publisher cannot be responsible for inadvertent errors. 



New Low Price ■ Complete! 

INDUS CT 
$279.95 



MPP MICROPRINT $49.95 

MPP1150 $69.95 

U-PRINT-A (16K BUFFER) $94.95 

MPP 1000 MODEM $129.95 

VOLKSMODEM & R-VERTER $99.95 

BASIC XL (OSS) $59.95 

THE WRITER'S TOOL (OSS) $79.95 

SYNCALC, SYNFILE, or SYNTREND . $39.95 

susPEa (infocom) $27.95 

HITCHHIKERS Of CUTTHROATS . . $24.95 

ULTIMA III $39.95 

ULTIMA III HELP BOOK $12.95 

RETURN OF HERACLES $24.95 

UNIVERSE $64.95 

UNIVERSE PRODUa GUIDE. . . .$12.95 

JUPITER MISSION $39.95 

QUEST FOR THE SPACE BEAGLE . $27.95 

FLAK $24.95 

REFORGER '88 $49.95 

FIELD OF FIRE $29.95 

CONAN $27.95 

LOST TOMB $24.95 

BOOK OF ADVENTURE GAMES. $17.95 

Please add S2.50 shipping (S4.50 outside USA) 

California residents add 6% 



COMPUTER GAMES + 

BOX 6144 
ORANGE CA 92667 
(714) 639-8189 l 



CIRCLE #140 ON READER SERVICE CARD 
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unique club 
beats them all 



DISK-OF-THE-MONTH CLUB 
P.O. BOX 116, FAIR LAWN, N.J. 07410-(H16 



STOP ADDOESS 



CIRCLE #137 ON READER SERVICE CARD 



ATTENTION AJAR\ DISK 
DRIVE OWNERS 

Back up your 
valuable software. 

THE CHIP 

THE CHIP with Archiver/Editor Software lor the Alari 
810 and 1050 disc drives. Includes Disassembler & 
Sector Editor. Includes Custom Formatter and Map- 
per. Backs up virtually any disk. 

$129.95 POST PAID 

Available soon lor 

other Alari corrtpalible disc drives. 

HAPPY 810 ENHANCEMENT 

Complete with Warp Speed software package. Plug-in 

installation — no soldering. Backs up any disc. 

Regular Price $249.95 

LIMITED SPECIAL OFFER $199.95 

Soon available lor other disc drives. 

HAPPY OWNERS 

Updat* your enhancamcnt with Happy Version Arch- 
iver/Editor. Makes Happy drives compatible with the 
chip. 

$39.95 POST PAID 

All soltwtn tor tfn Almrt DISCOUNTED 30H or MOKE. 
Olscounl* on alt Atari compaHbt* hardwar*. 

Send lor free brochure on any of the above or lor details on our 
software discounts. 



SOUTHERN SOFTWARE 

A DIVISION OF SOUTHERN SUPPLY COMPANY 
1879 RUFFNER ROAD BIRMtNGHAM, AL 3S21D 

24 HOUR PHONE 205-956-0986 
Order belore n A.M. for same day shipping. 



CIRCLE #138 ON READER SERVICE CARD 






Maniac.' 



Stuntman 



Fill 'Er Vp 
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Dino Batt/e 



Color S!ot Machine 



Cubes 



Where can you get all of these programs 
(and dozens more!) for only $14.95? 




Triple Threat Dice 






3-D Graphs 



Sphere Demo 



n i»n;n'j-i- « »«wii,MHn. ,'.v\» 
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L - ^ET^ pen -SUE TLi LOR&C 

I - -SET* I - 

- -SCT* I 

D - -sEr-s I 

M - HELP. . .LI-JT-J. I«E COW 

I >TAitTIHe FOmT FOR FI 

: - EMOIMC POINT FOR FILt 

f - FILL') THE Attea NXTH COLOR 

C ~ CHAM«e5 BACKGROUMO COLOR 

I ' CHANGED BACK&ROUND IHTEN'^ITV 

B - CHAUCER. REM BRIGHTKEIS-S 

RC - CLEARS THE SCREEK 

EV-L - LOADS PICTURE FRO' 

tL-5 - WAVE'S PICTURE TO TAPE 

CTRL-X - EXIT* PROGRAH 




Leprechaun King 



Sketch Pad 



Harvey Wallhanger 



From the editors of 
A.N.A.L.O.G. Computing 
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The ANALOG Compendmm is available at selected book and computer stores, or you can order it direct. Send 
a check or money order for $14.95 ' $2 shipping and handling to: ANALOG Compendium, P.O. Box 615, Holmes, 
PA 19043 

Or you can order by phone with MasterCard or VISA. Call toll free: 1-800-345-8112 (in PA, call 
1-800-662-2444). For orders outside the U.S., add an additional $5 air mail, $2 surface. 



